Changeset 600


Ignore:
Timestamp:
Mar 1, 2004, 9:04:05 AM (21 years ago)
Author:
Gary Byers
Message:

Use application-ui stuff to note initial package.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-boot-lds.lisp

    r482 r600  
    8383                                              shared-input)
    8484                                             *current-process*)))
     85                                   (application-ui-operation
     86                                    *application*
     87                                    :note-note-current-package *package*)
    8588                                   (funcall initial-function))
    8689                              (with-lock-grabbed
Note: See TracChangeset for help on using the changeset viewer.