/[cmucl]/src/code/lispinit.lisp
ViewVC logotype

Diff of /src/code/lispinit.lisp

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

revision 1.78.4.2 by rtoy, Mon May 19 16:55:15 2008 UTC revision 1.78.4.2.2.1 by rtoy, Wed Jul 2 01:22:07 2008 UTC
# Line 68  Line 68 
68             #+x86 *pseudo-atomic-interrupted*             #+x86 *pseudo-atomic-interrupted*
69             unix::*interrupts-enabled*             unix::*interrupts-enabled*
70             unix::*interrupt-pending*             unix::*interrupt-pending*
71             *type-system-initialized*)             *type-system-initialized*
72               unix::*filename-encoding*)
73    #+gengc    #+gengc
74    (special *gc-verbose* *before-gc-hooks* *after-gc-hooks*    (special *gc-verbose* *before-gc-hooks* *after-gc-hooks*
75             *type-system-initialized*))             *type-system-initialized* unix::*filename-encoding*))
76    
77    
78  ;;;; Random magic specials.  ;;;; Random magic specials.
# Line 336  Line 337 
337    #-gengc (setf unix::*interrupt-pending* nil)    #-gengc (setf unix::*interrupt-pending* nil)
338    (setf *type-system-initialized* nil)    (setf *type-system-initialized* nil)
339    (setf *break-on-signals* nil)    (setf *break-on-signals* nil)
340      (setf unix::*filename-encoding* nil)
341    #+gengc (setf conditions::*handler-clusters* nil)    #+gengc (setf conditions::*handler-clusters* nil)
342    
343    ;; Many top-level forms call INFO, (SETF INFO).    ;; Many top-level forms call INFO, (SETF INFO).

Legend:
Removed from v.1.78.4.2  
changed lines
  Added in v.1.78.4.2.2.1

  ViewVC Help
Powered by ViewVC 1.1.5