/[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.36 by wlott, Tue May 25 18:39:59 1993 UTC revision 1.37 by ram, Thu Aug 19 11:38:20 1993 UTC
# Line 89  Line 89 
89         (%primitive print ,(symbol-name name))         (%primitive print ,(symbol-name name))
90         (,name))))         (,name))))
91    
92    (defvar hi::*in-the-editor* nil)
93    
94  (defun %initial-function ()  (defun %initial-function ()
95    "Gives the world a shove and hopes it spins."    "Gives the world a shove and hopes it spins."
96    (%primitive print "In initial-function, and running.")    (%primitive print "In initial-function, and running.")

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

  ViewVC Help
Powered by ViewVC 1.1.5