Changeset 2651


Ignore:
Timestamp:
Oct 24, 2005, 1:00:26 PM (14 years ago)
Author:
gb
Message:

No need to clean up symbol.package-plist, which no longer exists.

File:
1 edited

Legend:

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

    r2326 r2651  
    149149
    150150(do-all-symbols (s)
    151   (setf (symbol-plist s) nil)
    152   (let* ((pp (%symbol-package-plist s)))
    153     (when (and (consp pp) (null (cdr pp)))
    154       (%set-symbol-package-plist s (car pp))))
    155   )
     151  (setf (symbol-plist s) nil))
    156152
    157153(progn (%set-toplevel #'toplevel-loop) (save-application "RUNTIME"))
Note: See TracChangeset for help on using the changeset viewer.