|#
;;;; Declarations
+;;; package: (runtime syntax declaration)
(declare (usual-integrations))
\f
(define known-declarations '())
-(for-each (lambda (keyword)
- (define-declaration keyword '()
- (lambda (declaration procedure)
- procedure
- declaration)))
- '(AUTOMAGIC-INTEGRATIONS
- NO-AUTOMAGIC-INTEGRATIONS
- ETA-SUBSTITUTION
- NO-ETA-SUBSTITUTION
- OPEN-BLOCK-OPTIMIZATIONS
- NO-OPEN-BLOCK-OPTIMIZATIONS))
-
(for-each (lambda (keyword)
(define-declaration keyword '(* IDENTIFIER)
(lambda (declaration procedure)
;; The names in USUAL-INTEGRATIONS are always global.
'(
USUAL-INTEGRATIONS
+ IGNORABLE
+ IGNORE
INTEGRATE
INTEGRATE-OPERATOR
INTEGRATE-SAFELY
- IGNORE
TYPE-CHECKS
NO-TYPE-CHECKS
RANGE-CHECKS