/[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.2 by vvzhy, Mon Jun 17 19:18:30 2002 UTC revision 1.3 by camm, Thu Oct 10 02:51:59 2002 UTC
# Line 63  Line 63 
63     LISP::KYOTO     LISP::KYOTO
64     LISP::CCLOSURE))     LISP::CCLOSURE))
65    
66    ;(dolist (s '(*compile-file-pathname* *compile-file-truename*
67    ;*compile-print* *compile-verbose* *load-pathname* *load-print*
68    ;*load-truename* *print-lines* *print-miser-width*
69    ;*print-pprint-dispatch* *print-right-margin* *read-eval*))
70    ;       (import (list s) "COMMON-LISP"))
71    
72  (do-external-symbols (s "LISP")  (do-external-symbols (s "LISP")
73    (if (not(member s lisp_unexport))    (if (not(member s lisp_unexport))
74        (progn        (progn
# Line 82  Line 88 
88          (import (list s) "COMMON-LISP")          (import (list s) "COMMON-LISP")
89          (import (list s) "USER"))))          (import (list s) "USER"))))
90    
91    (dolist (s '(*compile-file-pathname* *compile-file-truename*
92    *compile-print* *compile-verbose* *load-pathname* *load-print*
93    *load-truename* *print-lines* *print-miser-width*
94    *print-pprint-dispatch* *print-right-margin* *read-eval*
95    lisp::arithmetic-error broadcast-stream-streams cell-error
96    cell-error-name compile compile-file compiler-macro
97    compiler-macro-function complement concatenated-stream-streams
98    condition control-error copy-pprint-dispatch copy-structure count
99    debug define-compiler-macro define-setf-expander define-symbol-macro
100    defpackage describe describe-object division-by-zero dynamic-extent
101    echo-stream-input-stream echo-stream-output-stream
102    ensure-directories-exist fdefinition file-string-length formatter
103    function-lambda-expression get-setf-expansion hash-table-rehash-size
104    hash-table-rehash-threshold ignorable interactive-stream-p
105    load-logical-pathname-translations load-time-value
106    logical-pathname-translations make-load-form
107    make-load-form-saving-slots make-method open-stream-p pathname-match-p
108    pprint-dispatch pprint-exit-if-list-exhausted pprint-fill
109    pprint-indent pprint-linear pprint-logical-block pprint-newline
110    pprint-pop pprint-tab pprint-tabular print-not-readable-object
111    print-unreadable-object read-sequence readtable-case row-major-aref
112    set-pprint-dispatch simple-condition-format-control
113    stream-external-format synonym-stream-symbol
114    translate-logical-pathname translate-pathname
115    two-way-stream-input-stream two-way-stream-output-stream
116    unbound-slot-instance upgraded-array-element-type
117    upgraded-complex-part-type wild-pathname-p with-compilation-unit
118    with-condition-restarts with-package-iterator with-standard-io-syntax
119    write-sequence ))
120            (import (list s) "COMMON-LISP"))
121    
122  (use-package "ANSI-LOOP" "COMMON-LISP")  (use-package "ANSI-LOOP" "COMMON-LISP")
123  (use-package "ANSI-LOOP" "USER")  (use-package "ANSI-LOOP" "USER")
124    

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

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