/[cmucl]/src/code/lispinit.lisp
ViewVC logotype

Diff of /src/code/lispinit.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.2 by wlott, Wed Apr 11 17:16:14 1990 UTC revision 1.1.1.3 by wlott, Tue Apr 17 22:00:55 1990 UTC
# Line 477  Line 477 
477  (eval-when (compile)  (eval-when (compile)
478    (defmacro print-and-call (name)    (defmacro print-and-call (name)
479      `(progn      `(progn
480         (%primitive print ',name)         (%primitive print ,(symbol-name name))
481         (,name))))         (,name))))
482    
483  (defun %initial-function ()  (defun %initial-function ()
# Line 497  Line 497 
497          (nreverse *lisp-initialization-functions*))          (nreverse *lisp-initialization-functions*))
498    (%primitive print "Calling top-level forms.")    (%primitive print "Calling top-level forms.")
499    (dolist (fun *lisp-initialization-functions*)    (dolist (fun *lisp-initialization-functions*)
500        (%primitive print fun)
501      (funcall fun))      (funcall fun))
502    (makunbound '*lisp-initialization-functions*) ; So it gets GC'ed.    (makunbound '*lisp-initialization-functions*) ; So it gets GC'ed.
503    

Legend:
Removed from v.1.1.1.2  
changed lines
  Added in v.1.1.1.3

  ViewVC Help
Powered by ViewVC 1.1.5