/[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.9 by ram, Thu Oct 17 16:12:27 1991 UTC revision 1.10 by ram, Fri May 22 19:13:35 1992 UTC
# Line 31  Line 31 
31    
32  ;;;; Definition of *hemlock-version*.  ;;;; Definition of *hemlock-version*.
33    
34  (defvar *hemlock-version* "3.5")  (defvar *hemlock-version*
35      (concatenate 'string *hemlock-version* "3.5 "
36                        "(" *lisp-implementation-version* ")"))
37    
38    
39    
40  ;;;; %INIT-HEMLOCK.  ;;;; %INIT-HEMLOCK.
41    
42    (defvar *hemlock-initialized* nil)
43    
44  (defun %init-hemlock ()  (defun %init-hemlock ()
45    "Initialize hemlock's internal data structures."    "Initialize hemlock's internal data structures."
46    ;;    ;;
# Line 55  Line 59 
59    (%init-syntax-table)    (%init-syntax-table)
60    ;;    ;;
61    ;; Define print representations for funny characters.    ;; Define print representations for funny characters.
62    (%init-line-image))    (%init-line-image)
63      (setq *hemlock-initialized* t))
64    
65    
66  ;;;; Define some globals.  ;;;; Define some globals.
# Line 367  Line 371 
371      (when default (return default))      (when default (return default))
372      (format t "~A:~@[ [~A]~] " prompt default)      (format t "~A:~@[ [~A]~] " prompt default)
373      (force-output)))      (force-output)))
374    
375    (unless *hemlock-initialized*
376      (%init-hemlock))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5