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) |
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) |
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)) |