Changeset 13813

Timestamp:

Jun 11, 2010, 12:55:18 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

nx1-combination: indentation

File:

• trunk/source/compiler/nx0.lisp (modified) (3 diffs)

trunk/source/compiler/nx0.lisp

@@ -1922 +1922 @@
 
 (defun nx1-combination (form env)
-  (destructuring-bind (sym &rest args)
-                      form
+  (destructuring-bind (sym &rest args) form
     (if (symbolp sym)
       (let* ((*nx-sfname* sym) special)
@@ -1932 +1931 @@
                                  ))
                      (< (safety-optimize-quantity env) 3))
-                 ;(not (nx-lexical-finfo sym env))
+                 ;;(not (nx-lexical-finfo sym env))
                  (not (nx-declared-notinline-p sym *nx-lexical-environment*)))
           (funcall special form env) ; pass environment arg ...
@@ -1939 +1938 @@
       (if (lambda-expression-p sym)
         (nx1-lambda-bind (%cadr sym) args (%cddr sym))
-      (nx-error "In the form ~S, ~S is not a symbol or lambda expression." form sym)))))
+        (nx-error "In the form ~S, ~S is not a symbol or lambda expression." form sym)))))
 
 (defun nx1-treat-as-call (args)