- * ** ***
- / // ///
- + ++ +++
- -
- *gensym-counter*
- ;; These are bound when compiling and/or loading:
- *package*
- *compile-file-truename*
- *compile-file-pathname*
- *load-truename*
- *load-pathname*
- ;; These change because CMU CL uses them as internal
- ;; variables:
- ,@'
- #-cmu nil
- #+cmu (cl::*gc-trigger*
- cl::inch-ptr
- cl::*internal-symbol-output-function*
- cl::ouch-ptr
- cl::*previous-case*
- cl::read-buffer
- cl::read-buffer-length
- cl::*string-output-streams*
- cl::*available-buffers*
- cl::*current-unwind-protect-block*
- cl::*load-depth*
- cl::*free-fop-tables*
- cl::*load-symbol-buffer*
- cl::*load-symbol-buffer-size*
- cl::in-index
- cl::in-buffer
- ;; These two are changed by PURIFY.
- cl::*static-space-free-pointer*
- cl::*static-space-end-pointer*)
- ))
+ * ** ***
+ / // ///
+ + ++ +++
+ -
+ *gensym-counter*
+ ;; These are bound when compiling and/or loading:
+ *package*
+ *compile-file-truename*
+ *compile-file-pathname*
+ *load-truename*
+ *load-pathname*
+ ;; These change because CMU CL uses them as internal
+ ;; variables:
+ ,@'
+ #-cmu nil
+ #+cmu (cl::*gc-trigger*
+ cl::inch-ptr
+ cl::*internal-symbol-output-function*
+ cl::ouch-ptr
+ cl::*previous-case*
+ cl::read-buffer
+ cl::read-buffer-length
+ cl::*string-output-streams*
+ cl::*available-buffers*
+ cl::*current-unwind-protect-block*
+ cl::*load-depth*
+ cl::*free-fop-tables*
+ cl::*load-symbol-buffer*
+ cl::*load-symbol-buffer-size*
+ cl::in-index
+ cl::in-buffer
+ ;; These two are changed by PURIFY.
+ cl::*static-space-free-pointer*
+ cl::*static-space-end-pointer*)
+ ))