File: pathname_chdir

package info (click to toggle)
axiom 20170501-12
  • links: PTS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 1,052,416 kB
  • sloc: javascript: 8,042; lisp: 3,600; makefile: 505; cpp: 223; ansic: 181; sh: 96
file content (100 lines) | stat: -rw-r--r-- 4,353 bytes parent folder | download | duplicates (3)
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: "&quot;backspace&quot; key doesn&#39;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")