1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
Description: <short summary of the patch>
TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.
.
maxima (5.38.1-3) unstable; urgency=medium
.
* Build-dep against latest gcl
Author: Camm Maguire <camm@debian.org>
---
The information above should follow the Patch Tagging Guidelines, please
checkout http://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:
Origin: <vendor|upstream|other>, <url of original patch>
Bug: <url in upstream bugtracker>
Bug-Debian: https://bugs.debian.org/<bugnumber>
Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
Forwarded: <no|not-needed|url proving that it has been forwarded>
Reviewed-By: <name and email of someone who approved the patch>
Last-Update: 2016-10-13
--- maxima-5.38.1.orig/lisp-utils/defsystem.lisp
+++ maxima-5.38.1/lisp-utils/defsystem.lisp
@@ -1818,7 +1818,6 @@ s/^[^M]*IRIX Execution Environment 1, *[
;;; "[root.subdir]BAZ"
;;; "[root.][subdir]BAZ"
;;; Use #+:vaxlisp for VAXLisp 3.0, #+(and vms dec common vax) for v2.2
-
#-scl
(defun new-append-directories (absolute-dir relative-dir)
;; Version of append-directories for CLtL2-compliant lisps. In particular,
@@ -1873,7 +1872,7 @@ s/^[^M]*IRIX Execution Environment 1, *[
(when (and abs-name (not (null-string abs-name))) ; was abs-name
(cond ((and (null abs-directory) (null abs-keyword))
- #-(or :lucid TI) (setf abs-keyword :relative)
+ #-(or :lucid TI) (setf abs-keyword (car (pathname-directory "./")))
(setf abs-directory (list abs-name)))
(t
(setf abs-directory (append abs-directory (list abs-name))))))
@@ -1906,6 +1905,7 @@ s/^[^M]*IRIX Execution Environment 1, *[
#+(or :gcl :sbcl :MCL :clisp :cmu) :type
#+(or :gcl :sbcl :MCL :clisp :cmu) rel-type
))))
+;(trace new-append-directories)
#-scl
(defun directory-to-list (directory)
@@ -1928,6 +1928,7 @@ s/^[^M]*IRIX Execution Environment 1, *[
(split-string directory :item #\/))))
(t
(coerce directory 'list))))
+;(trace directory-to-list)
(defparameter *append-dirs-tests*
|
