Skip to content
Snippets Groups Projects
Commit 3fa19539 authored by dtc's avatar dtc
Browse files

Create an initial process binding of *package* to the COMMON-LISP-USER

package.
parent 72159b80
No related branches found
No related tags found
No related merge requests found
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; This code was written by Douglas T. Crosher and has been placed in ;;; This code was written by Douglas T. Crosher and has been placed in
;;; the Public domain, and is provided 'as is'. ;;; the Public domain, and is provided 'as is'.
;;; ;;;
;;; $Id: multi-proc.lisp,v 1.23 1998/01/15 14:36:25 dtc Exp $ ;;; $Id: multi-proc.lisp,v 1.24 1998/01/17 13:43:47 dtc Exp $
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -462,10 +462,8 @@ ...@@ -462,10 +462,8 @@
:interrupt-contexts (make-array 0 :element-type :interrupt-contexts (make-array 0 :element-type
'(unsigned-byte 32)) '(unsigned-byte 32))
;; Binding stack - some initial bindings. ;; Binding stack - some initial bindings.
:binding-stack (vector :binding-stack (vector
nil '* nil '** nil '*** nil '- (find-package "COMMON-LISP-USER") '*package*
nil '+ nil '++ nil '+++
nil '/// nil '// nil '/
nil 'unix::*interrupts-enabled* nil 'unix::*interrupts-enabled*
t 'lisp::*gc-inhibit*) t 'lisp::*gc-inhibit*)
:binding-stack-size (* 2 12) :binding-stack-size (* 2 12)
...@@ -1445,7 +1443,10 @@ ...@@ -1445,7 +1443,10 @@
;;; ;;;
(defun top-level () (defun top-level ()
"Top-level READ-EVAL-PRINT loop for processes." "Top-level READ-EVAL-PRINT loop for processes."
(let ((magic-eof-cookie (cons :eof nil))) (let ((* nil) (** nil) (*** nil)
(- nil) (+ nil) (++ nil) (+++ nil)
(/// nil) (// nil) (/ nil)
(magic-eof-cookie (cons :eof nil)))
(loop (loop
(with-simple-restart (abort "Return to Top-Level.") (with-simple-restart (abort "Return to Top-Level.")
(catch 'top-level-catcher (catch 'top-level-catcher
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment