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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100
|
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.
.
axiom (20140801-11) unstable; urgency=medium
.
* fix FTBFS ppc64, patch to avoid overflow of BSD sockaddr sa_data in
make_server_name
* build-dep latest gcl
* Bug fix: "FTBFS on mips", thanks to Sebastian Ramacher (Closes:
#756793). autobuild with latest tools on mips works.
* Bug fix: "naive methods of exiting axiom can blow up
catastrophically", thanks to Tom Hargreaves (Closes: #346552).
* Bug fix: ""backspace" key doesn't work as expected",
thanks to Edi Meier (Closes: #708733). Command line editing in
terminal now has a conventionally functioning Backspace
Author: Camm Maguire <camm@debian.org>
Bug-Debian: https://bugs.debian.org/346552
Bug-Debian: https://bugs.debian.org/708733
Bug-Debian: https://bugs.debian.org/756793
---
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
Index: axiom-20170401/books/bookvol5.pamphlet
===================================================================
--- axiom-20170401.orig/books/bookvol5.pamphlet
+++ axiom-20170401/books/bookvol5.pamphlet
@@ -37537,7 +37537,7 @@ o )history
(cond
((eq fullopt '|ifthere|) (setq ifthere t))
((eq fullopt '|quiet|) (setq quiet t))))
- (setq ef (|pathname| /editfile))
+ (setq ef (or (|pathname| /editfile) ""))
(when (eq (|pathnameTypeId| ef) 'spad)
(setq ef (|makePathname| (|pathnameName| ef) "*" "*")))
(if arg
@@ -47605,8 +47605,9 @@ nrlib/index.kaf
(if make-database? (setq noexpose t))
(when dir (setq nrlibs (processDir dir thisdir)))
(dolist (file filelist)
- (let ((filename (pathname-name file))
- (namedir (directory-namestring file)))
+ (let* ((file (string file))
+ (filename (pathname-name file))
+ (namedir (directory-namestring file)))
(unless namedir (setq thisdir (concatenate 'string thisdir "/")))
(cond
((setq file (probe-file
@@ -48838,7 +48839,7 @@ filetype and filemode. We also UPCASE ev
(defun |pathname| (p)
(cond
((null p) p)
- ((pathnamep p) p)
+ ((pathnamep p) p)((symbolp p) (pathname (string p)))
((null (consp p)) (pathname p))
(t
(when (> (|#| p) 2) (setq p (cons (elt p 0) (cons (elt p 1) nil))))
Index: axiom-20170401/src/interp/patches.lisp.pamphlet
===================================================================
--- axiom-20170401.orig/src/interp/patches.lisp.pamphlet
+++ axiom-20170401/src/interp/patches.lisp.pamphlet
@@ -100,9 +100,9 @@ previous definition.
(cond ((null filename)
(dribble) (TERPRI)
(reset-highlight))
- ((probe-file (car filename))
+ ((probe-file (string (car filename)))
(error (format nil "file ~a already exists" (car filename))))
- (t (dribble (car filename))
+ (t (dribble (string (car filename)))
(TERPRI)
(clear-highlight))
))
Index: axiom-20170401/src/interp/util.lisp.pamphlet
===================================================================
--- axiom-20170401.orig/src/interp/util.lisp.pamphlet
+++ axiom-20170401/src/interp/util.lisp.pamphlet
@@ -1145,7 +1145,7 @@ Run the etags command on all of the lisp
final TAGS file is constructed in the {\bf tmp} directory.
\begin{chunk}{make-tags-file}
(defun make-tags-file ()
-#+:gcl (system:chdir "/tmp")
+#+:gcl (system::chdir "/tmp")
#-:gcl (vmlisp::obey (concatenate 'string "cd " "/tmp"))
(obey (concat "etags " (make-absolute-filename "../../src/interp/*.lisp")))
(spadtags-from-directory "../../src/interp" "boot")
|