Changeset 15787


Ignore:
Timestamp:
Mar 29, 2013, 6:13:41 AM (8 years ago)
Author:
gb
Message:

Fix handling of *CLOS-OPTIMIZATIONS-ACTIVE*, so SNAP-READER-METHODS
can safely be called with no args.

Location:
trunk/source/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r15606 r15787  
    3434                           :format-control "CLOS optimizations are in effect, so it isn't safe to ~a ~s."
    3535                           :format-arguments (list operation operand))
    36             (cons 'snap-reader-methods *clos-optimizations-active*))
     36            (cons 'snap-reader-methods (cdr *clos-optimizations-active*)))
    3737    (setq *clos-optimizations-active* nil)
    3838    (pessimize-clos)
  • trunk/source/level-1/l1-clos.lisp

    r15428 r15787  
    25312531    (values nil nil 0)
    25322532    (progn
    2533       (setq *clos-optimizations-active* args)
     2533      (setq *clos-optimizations-active* (cons t args))
    25342534      (when optimize-make-instance
    25352535        (optimize-named-class-make-instance-methods))
Note: See TracChangeset for help on using the changeset viewer.