/[cmucl]/src/hemlock/main.lisp
ViewVC logotype

Diff of /src/hemlock/main.lisp

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

revision 1.12 by ram, Sat May 23 02:02:36 1992 UTC revision 1.13 by ram, Mon May 25 21:38:31 1992 UTC
# Line 31  Line 31 
31    
32  ;;;; Definition of *hemlock-version*.  ;;;; Definition of *hemlock-version*.
33    
34  (defvar *hemlock-version*  (defvar *hemlock-version* "3.5")
   (concatenate 'string "3.5 (" lisp::*lisp-implementation-version* ")"))  
   
35  (pushnew :hemlock *features*)  (pushnew :hemlock *features*)
36    (setf (getf ext:*herald-items* :hemlock)
37          `("    Hemlock " ,*hemlock-version*))
38    
39    
40  ;;;; %INIT-HEMLOCK.  ;;;; %INIT-HEMLOCK.

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5