/[gcl]/gcl/unixport/ansi_cl.lisp
ViewVC logotype

Diff of /gcl/unixport/ansi_cl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by prw, Wed Oct 23 13:34:20 2002 UTC revision 1.5 by camm, Mon Dec 2 21:11:29 2002 UTC
# Line 1  Line 1 
1  (setq clcs_shadow  (setq clcs_shadow
2   '(CONDITIONS::BREAK   '(CONDITIONS::BREAK
3     CONDITIONS::ERROR     CONDITIONS::ERROR
4     CONDITIONS::CERROR     CONDITIONS::CERROR
5     CONDITIONS::WARN     CONDITIONS::WARN
6     CONDITIONS::CHECK-TYPE     CONDITIONS::CHECK-TYPE
7     CONDITIONS::ASSERT     CONDITIONS::ASSERT
8     CONDITIONS::ETYPECASE     CONDITIONS::ETYPECASE
9     CONDITIONS::CTYPECASE     CONDITIONS::CTYPECASE
10     CONDITIONS::ECASE     CONDITIONS::ECASE
11     CONDITIONS::CCASE ))     CONDITIONS::CCASE ))
12    
13  (setq lisp_unexport  (setq lisp_unexport
14   '(LISP::LAMBDA-BLOCK-CLOSURE   '(LISP::LAMBDA-BLOCK-CLOSURE
15     LISP::BYE     LISP::BYE
16     LISP::QUIT     LISP::QUIT
17     LISP::EXIT     LISP::EXIT
18     LISP::IEEE-FLOATING-POINT     LISP::IEEE-FLOATING-POINT
19     LISP::DEFENTRY     LISP::DEFENTRY
20     LISP::VOID     LISP::VOID
21     LISP::ALLOCATE-CONTIGUOUS-PAGES     LISP::ALLOCATE-CONTIGUOUS-PAGES
22     LISP::UNSIGNED-SHORT     LISP::UNSIGNED-SHORT
23     LISP::DOUBLE     LISP::DOUBLE
24     LISP::BY     LISP::BY
25     LISP::GBC     LISP::GBC
26     LISP::DEFCFUN     LISP::DEFCFUN
27     LISP::SAVE     LISP::SAVE
28     LISP::MAXIMUM-CONTIGUOUS-PAGES     LISP::MAXIMUM-CONTIGUOUS-PAGES
29     LISP::SPICE     LISP::SPICE
30     LISP::DEFLA     LISP::DEFLA
31     LISP::ALLOCATED-PAGES     LISP::ALLOCATED-PAGES
32     LISP::SUN     LISP::SUN
33     LISP::INT     LISP::INT
34     LISP::USE-FAST-LINKS     LISP::USE-FAST-LINKS
35     LISP::CFUN     LISP::CFUN
36     LISP::UNSIGNED-CHAR     LISP::UNSIGNED-CHAR
37     LISP::HELP     LISP::HELP
38     LISP::HELP*     LISP::HELP*
39     LISP::MACRO     LISP::MACRO
40     LISP::*BREAK-ENABLE*     LISP::*BREAK-ENABLE*
41     LISP::CLINES     LISP::CLINES
42     LISP::LAMBDA-CLOSURE     LISP::LAMBDA-CLOSURE
43     LISP::OBJECT     LISP::OBJECT
44     LISP::FAT-STRING     LISP::FAT-STRING
45     LISP::SIGNED-SHORT     LISP::SIGNED-SHORT
46     LISP::MC68020     LISP::MC68020
47     LISP::LAMBDA-BLOCK     LISP::LAMBDA-BLOCK
48     LISP::TAG     LISP::TAG
49     LISP::PROCLAMATION     LISP::PROCLAMATION
50     LISP::ALLOCATED-CONTIGUOUS-PAGES     LISP::ALLOCATED-CONTIGUOUS-PAGES
51     LISP::*EVAL-WHEN-COMPILE*     LISP::*EVAL-WHEN-COMPILE*
52     LISP::SIGNED-CHAR     LISP::SIGNED-CHAR
53     LISP::*IGNORE-MAXIMUM-PAGES*     LISP::*IGNORE-MAXIMUM-PAGES*
54     LISP::*LINK-ARRAY*     LISP::*LINK-ARRAY*
55     LISP::KCL     LISP::KCL
56     LISP::BSD     LISP::BSD
57     LISP::ALLOCATE-RELOCATABLE-PAGES     LISP::ALLOCATE-RELOCATABLE-PAGES
58     LISP::ALLOCATE     LISP::ALLOCATE
59     LISP::UNIX     LISP::UNIX
60     LISP::MAXIMUM-ALLOCATABLE-PAGES     LISP::MAXIMUM-ALLOCATABLE-PAGES
61     LISP::ALLOCATED-RELOCATABLE-PAGES     LISP::ALLOCATED-RELOCATABLE-PAGES
62     LISP::SYSTEM     LISP::SYSTEM
63     LISP::KYOTO     LISP::KYOTO
64     LISP::CCLOSURE))     LISP::CCLOSURE))
65    
66  ;(dolist (s '(*compile-file-pathname* *compile-file-truename*  ;(dolist (s '(*compile-file-pathname* *compile-file-truename*
67  ;*compile-print* *compile-verbose* *load-pathname* *load-print*  ;*compile-print* *compile-verbose* *load-pathname* *load-print*
68  ;*load-truename* *print-lines* *print-miser-width*  ;*load-truename* *print-lines* *print-miser-width*
# Line 79  Line 79 
79                         (shadowing-import (list s) "USER")))                         (shadowing-import (list s) "USER")))
80                                                    
81    
82  (do-external-symbols (s "LISP")  (do-external-symbols (s "LISP")
83    (if (not(member s lisp_unexport))    (if (not(member s lisp_unexport))
84        (progn        (progn
85          (import (list s) "COMMON-LISP")          (import (list s) "COMMON-LISP")
86          (import (list s) "USER")) ))          (import (list s) "USER")) ))
87    
88  (do-external-symbols (s "PCL")  (do-external-symbols (s "PCL")
89    (import (list s) "COMMON-LISP")    (import (list s) "COMMON-LISP")
90    (import (list s) "USER"))    (import (list s) "USER"))
91    
92  (do-external-symbols (s "CONDITIONS")  (do-external-symbols (s "CONDITIONS")
93    (if (member s clcs_shadow)    (if (member s clcs_shadow)
94        (progn        (progn
95          (shadowing-import (list s) "COMMON-LISP")          (shadowing-import (list s) "COMMON-LISP")
96          (shadowing-import (list s) "USER"))          (shadowing-import (list s) "USER"))
97        (progn        (progn
98          (import (list s) "COMMON-LISP")          (import (list s) "COMMON-LISP")
99          (import (list s) "USER"))))          (import (list s) "USER"))))
100    
101  (dolist (s '(*compile-file-pathname* *compile-file-truename*  (dolist (s '(*compile-file-pathname* *compile-file-truename*
102  *compile-print* *compile-verbose* *load-pathname* *load-print*  *compile-print* *compile-verbose* *load-pathname* *load-print*
# Line 131  write-sequence )) Line 131  write-sequence ))
131    
132  (use-package "ANSI-LOOP" "COMMON-LISP")  (use-package "ANSI-LOOP" "COMMON-LISP")
133  (use-package "ANSI-LOOP" "USER")  (use-package "ANSI-LOOP" "USER")
134    
135  (do-symbols (s "COMMON-LISP")  (do-symbols (s "COMMON-LISP")
136    (export (list s) "COMMON-LISP"))    (export (list s) "COMMON-LISP"))
137        
138  (makunbound 'clcs_shadow)  (makunbound 'clcs_shadow)
139  (makunbound 'lisp_unexport)  (makunbound 'lisp_unexport)
# Line 143  write-sequence )) Line 143  write-sequence ))
143  (unintern 'int)  (unintern 'int)
144  (unintern 'shadow-system)  (unintern 'shadow-system)
145    
146  (push ':ansi-cl *features*)  (push :common-lisp *features*)
147    (push :ansi-cl *features*)
148    
149   (rename-package 'common-lisp 'common-lisp '(cl))  (rename-package 'common-lisp 'common-lisp '(cl))
150  (rename-package 'user 'common-lisp-user '(cl-user user))  (rename-package 'user 'common-lisp-user '(cl-user user))
151    
152  (si::save-system "saved_ansi_gcl")  (si::save-system "saved_ansi_gcl")
153    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26