/[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.3 by camm, Thu Oct 10 02:51:59 2002 UTC revision 1.4 by prw, Wed Oct 23 13:34:20 2002 UTC
# Line 69  Line 69 
69  ;*print-pprint-dispatch* *print-right-margin* *read-eval*))  ;*print-pprint-dispatch* *print-right-margin* *read-eval*))
70  ;       (import (list s) "COMMON-LISP"))  ;       (import (list s) "COMMON-LISP"))
71    
72    ;anything in "SYSTEM" which should go in "COMMON-LISP"
73    ;can be added to shadow-system
74    (setf shadow-system '(system::copy-structure))
75    
76    (do-external-symbols (s "SYSTEM")
77                         (when (member s shadow-system)
78                           (shadowing-import (list s) "COMMON-LISP")
79                           (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
# Line 127  write-sequence )) Line 137  write-sequence ))
137        
138  (makunbound 'clcs_shadow)  (makunbound 'clcs_shadow)
139  (makunbound 'lisp_unexport)  (makunbound 'lisp_unexport)
140    (makunbound 'shadow-system)
141  (unintern 'clcs_shadow)  (unintern 'clcs_shadow)
142  (unintern 'lisp_unexport)  (unintern 'lisp_unexport)
143  (unintern 'int)  (unintern 'int)
144    (unintern 'shadow-system)
145    
146  (push ':ansi-cl *features*)  (push ':ansi-cl *features*)
147    

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

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