/[cmucl]/src/tools/hemcom.lisp
ViewVC logotype

Diff of /src/tools/hemcom.lisp

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

revision 1.1.1.30 by ram, Thu Aug 19 12:49:36 1993 UTC revision 1.1.1.31 by ram, Wed Aug 25 02:35:28 1993 UTC
# Line 16  Line 16 
16    
17  ;;; Stuff to set up the packages Hemlock uses.  ;;; Stuff to set up the packages Hemlock uses.
18  ;;;  ;;;
19  (in-package "HEMLOCK-INTERNALS"  (unless (find-package "HEMLOCK-INTERNALS")
20              :nicknames '("HI")    (make-package "HEMLOCK-INTERNALS"
21              :use '("LISP" "EXTENSIONS" "SYSTEM"))                  :nicknames '("HI")
22                    :use '("LISP" "EXTENSIONS" "SYSTEM")))
23    
24  ;;;  (unless (find-package "HEMLOCK")
25  (in-package "HEMLOCK"    (make-package "HEMLOCK"
26              :nicknames '("ED")                  :nicknames '("ED")
27              :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))                  :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM")))
28  ;;;  ;;;
29  (export 'c::compile-from-stream (find-package "C"))  (export 'c::compile-from-stream (find-package "C"))
30    

Legend:
Removed from v.1.1.1.30  
changed lines
  Added in v.1.1.1.31

  ViewVC Help
Powered by ViewVC 1.1.5