`((**current-segment** ,seg-var)))
,@(when vop
`((**current-vop** ,vop-var)))
`((**current-segment** ,seg-var)))
,@(when vop
`((**current-vop** ,vop-var)))
new-labels))
(symbol-macrolet ((**current-segment** ,seg-var)
(**current-vop** ,vop-var)
,@(when (or inherited-labels nested-labels)
`((..inherited-labels.. ,nested-labels))))
new-labels))
(symbol-macrolet ((**current-segment** ,seg-var)
(**current-vop** ,vop-var)
,@(when (or inherited-labels nested-labels)
`((..inherited-labels.. ,nested-labels))))
- ,@(mapcar #'(lambda (form)
- (if (label-name-p form)
- `(emit-label ,form)
- form))
+ ,@(mapcar (lambda (form)
+ (if (label-name-p form)
+ `(emit-label ,form)
+ form))
`((**current-segment** ,seg-var)))
,@(when vop
`((**current-vop** ,vop-var)))
`((**current-segment** ,seg-var)))
,@(when vop
`((**current-vop** ,vop-var)))
new-labels))
(symbol-macrolet ((**current-segment** ,seg-var)
(**current-vop** ,vop-var)
,@(when (or inherited-labels nested-labels)
`((..inherited-labels.. ,nested-labels))))
new-labels))
(symbol-macrolet ((**current-segment** ,seg-var)
(**current-vop** ,vop-var)
,@(when (or inherited-labels nested-labels)
`((..inherited-labels.. ,nested-labels))))
- ,@(mapcar #'(lambda (form)
- (if (label-name-p form)
- `(emit-label ,form)
- form))
+ ,@(mapcar (lambda (form)
+ (if (label-name-p form)
+ `(emit-label ,form)
+ form))
:environment env)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(%define-instruction ,(symbol-name name)
:environment env)
`(eval-when (:compile-toplevel :load-toplevel :execute)
(%define-instruction ,(symbol-name name)