Changeset 13813


Ignore:
Timestamp:
Jun 11, 2010, 7:55:18 PM (9 years ago)
Author:
rme
Message:

nx1-combination: indentation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r13374 r13813  
    19221922
    19231923(defun nx1-combination (form env)
    1924   (destructuring-bind (sym &rest args)
    1925                       form
     1924  (destructuring-bind (sym &rest args) form
    19261925    (if (symbolp sym)
    19271926      (let* ((*nx-sfname* sym) special)
     
    19321931                                 ))
    19331932                     (< (safety-optimize-quantity env) 3))
    1934                  ;(not (nx-lexical-finfo sym env))
     1933                 ;;(not (nx-lexical-finfo sym env))
    19351934                 (not (nx-declared-notinline-p sym *nx-lexical-environment*)))
    19361935          (funcall special form env) ; pass environment arg ...
     
    19391938      (if (lambda-expression-p sym)
    19401939        (nx1-lambda-bind (%cadr sym) args (%cddr sym))
    1941       (nx-error "In the form ~S, ~S is not a symbol or lambda expression." form sym)))))
     1940        (nx-error "In the form ~S, ~S is not a symbol or lambda expression." form sym)))))
    19421941
    19431942(defun nx1-treat-as-call (args)
Note: See TracChangeset for help on using the changeset viewer.