Ignore:
Timestamp:
May 6, 2004, 6:29:31 AM (16 years ago)
Author:
gb
Message:

incorporate 0.14.2 changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-utils.lisp

    r583 r812  
    10191019
    10201020(defun %make-function (name fn env)
    1021   (let ((compile-it *compile-definitions*))
    1022     (when (and compile-it (neq compile-it t))
    1023       (setq compile-it (funcall compile-it env)))
    1024     (if (not compile-it)
    1025       ; bad things will probably occur if env contains unmunched function bindings
    1026       ; but enclose says the behavior in that case is "undefined"
    1027       (make-evaluated-function name fn env)
    1028       (compile-user-function fn name env))))
     1021  (compile-user-function fn name env))
    10291022   
    10301023;;;;;;;;; VALUE BINDING Functions
Note: See TracChangeset for help on using the changeset viewer.