/[gcl]/gcl/cmpnew/gcl_cmpenv.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpenv.lsp

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

revision 1.18 by camm, Mon Sep 26 16:45:02 2005 UTC revision 1.19 by camm, Wed Oct 5 15:17:42 2005 UTC
# Line 57  Line 57 
57    (setq *inline-blocks* 0)    (setq *inline-blocks* 0)
58    (setq *notinline* nil)    (setq *notinline* nil)
59    (clrhash *norm-tp-hash*)    (clrhash *norm-tp-hash*)
60    (clrhash *and-tp-hash*))    (clrhash *and-tp-hash*)
61      (clrhash *or-tp-hash*))
62    
63  (defvar *next-cvar* 0)  (defvar *next-cvar* 0)
64  (defvar *next-cmacro* 0)  (defvar *next-cmacro* 0)
# Line 512  Line 513 
513              (*alien-declarations* *alien-declarations*)              (*alien-declarations* *alien-declarations*)
514              (*notinline* *notinline*)              (*notinline* *notinline*)
515              (*space* *space*)              (*space* *space*)
516                (*compiler-check-args* *compiler-check-args*)
517              (*safe-compile* *safe-compile*))              (*safe-compile* *safe-compile*))
518             (dolist** (decl decls dl)             (dolist** (decl decls dl)
519               (case (car decl)               (case (car decl)
# Line 529  Line 531 
531                             (safety                             (safety
532                               (setq *safe-compile*                               (setq *safe-compile*
533                                     (>= (the fixnum (cadr x)) 2))                                     (>= (the fixnum (cadr x)) 2))
534                                 (setq *compiler-check-args*
535                                       (>= (the fixnum (cadr x)) 1))
536                               (push (list 'safety (cadr x)) dl))                               (push (list 'safety (cadr x)) dl))
537                             (space (setq *space* (cadr x))                             (space (setq *space* (cadr x))
538                                    (push (list 'space (cadr x)) dl))                                    (push (list 'space (cadr x)) dl))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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