From 3fa19539cb13f73d56106aa67cde9c152c722ac2 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 17 Jan 1998 13:43:47 +0000 Subject: [PATCH] Create an initial process binding of *package* to the COMMON-LISP-USER package. --- code/multi-proc.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/code/multi-proc.lisp b/code/multi-proc.lisp index 8b8749c24..cb67c3ef8 100644 --- a/code/multi-proc.lisp +++ b/code/multi-proc.lisp @@ -3,7 +3,7 @@ ;;; This code was written by Douglas T. Crosher and has been placed in ;;; 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 @@ :interrupt-contexts (make-array 0 :element-type '(unsigned-byte 32)) ;; Binding stack - some initial bindings. - :binding-stack (vector - nil '* nil '** nil '*** nil '- - nil '+ nil '++ nil '+++ - nil '/// nil '// nil '/ + :binding-stack (vector + (find-package "COMMON-LISP-USER") '*package* nil 'unix::*interrupts-enabled* t 'lisp::*gc-inhibit*) :binding-stack-size (* 2 12) @@ -1445,7 +1443,10 @@ ;;; (defun top-level () "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 (with-simple-restart (abort "Return to Top-Level.") (catch 'top-level-catcher -- GitLab