-(defun disassemble-fun (x) x)
-(disassemble 'disassemble-fun)
-
-(let ((x 1)) (defun disassemble-closure (y) (if y (setq x y) x)))
-(disassemble 'disassemble-closure)
-
-#+sb-eval
-(progn
- ;; Nor should it fail on interpreted functions
- (let ((sb-ext:*evaluator-mode* :interpret))
- (eval `(defun disassemble-eval (x) x))
- (disassemble 'disassemble-eval))
-
- ;; disassemble-eval should still be an interpreted function.
- ;; clhs disassemble: "(If that function is an interpreted function,
- ;; it is first compiled but the result of this implicit compilation
- ;; is not installed.)"
- (assert (sb-eval:interpreted-function-p #'disassemble-eval)))
-
-;; nor should it fail on generic functions or other funcallable instances
-(defgeneric disassemble-generic (x))
-(disassemble 'disassemble-generic)
-(let ((fin (sb-mop:make-instance 'sb-mop:funcallable-standard-object)))
- (disassemble fin))
+ (defun disassemble-fun (x) x)
+ (disassemble 'disassemble-fun)
+
+ (let ((x 1)) (defun disassemble-closure (y) (if y (setq x y) x)))
+ (disassemble 'disassemble-closure)
+
+ #+sb-eval
+ (progn
+ ;; Nor should it fail on interpreted functions
+ (let ((sb-ext:*evaluator-mode* :interpret))
+ (eval `(defun disassemble-eval (x) x))
+ (disassemble 'disassemble-eval))
+
+ ;; disassemble-eval should still be an interpreted function.
+ ;; clhs disassemble: "(If that function is an interpreted function,
+ ;; it is first compiled but the result of this implicit compilation
+ ;; is not installed.)"
+ (assert (sb-eval:interpreted-function-p #'disassemble-eval)))
+
+ ;; nor should it fail on generic functions or other funcallable instances
+ (defgeneric disassemble-generic (x))
+ (disassemble 'disassemble-generic)
+ (let ((fin (make-instance 'sb-mop:funcallable-standard-object)))
+ (disassemble fin)))