diff --git a/code/sysmacs.lisp b/code/sysmacs.lisp index c56cc56fe4262acc3250679948ea112a15fbfc50..2c57d21202253e180859608e6ef7832820e779db 100644 --- a/code/sysmacs.lisp +++ b/code/sysmacs.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sysmacs.lisp,v 1.9 1991/04/24 23:39:34 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sysmacs.lisp,v 1.10 1991/07/25 22:24:43 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -15,10 +15,6 @@ ;;; (in-package "LISP" :use '("SYSTEM" "DEBUG")) -#-new-compiler -(eval-when (compile) - (setq lisp::*bootstrap-defmacro* t)) - ;;; WITH-ARRAY-DATA -- Interface ;;; ;;; Checks to see if the array is simple and the start and end are in @@ -106,45 +102,6 @@ (funcall (hi::device-init device) device))))) -;;; With-Reply-Port -- Public -;;; -;;; If we find that the number of ports in use (as indicated by -;;; *reply-port-pointer*) disagrees with our dynamic depth in -;;; With-Reply-Port forms (as indicated by *reply-port-depth*), -;;; then we must have been unwound at some point in the past. -;;; We reallocate the ports that were in use when we were -;;; unwound, since they may have random messages hanging on them. -;;; -#+nil -(defmacro with-reply-port ((var) &body body) - "With-Reply-Port (Var) {Form}* - Binds Var to a port during the evaluation of the Forms." - (let ((index (gensym)) - (old-flag (gensym)) - (res (gensym))) - `(let ((,old-flag %sp-interrupts-inhibited) - ,res) - (without-interrupts - (let* ((,index *reply-port-depth*) - (*reply-port-depth* (1+ ,index)) - ,var) - (unless (eql ,index *reply-port-pointer*) - (reallocate-reply-ports ,index)) - (setq ,var (svref *reply-port-stack* ,index)) - (setq *reply-port-pointer* (1+ ,index)) - (unless ,var (setq ,var (allocate-new-reply-ports))) - (setq %sp-interrupts-inhibited ,old-flag) - (setq ,res (multiple-value-list (progn ,@body))) - (when (eql (car ,res) mach:rcv-timed-out) - (gr-call mach:port_deallocate *task-self* ,var) - (setf (svref *reply-port-stack* ,index) - (gr-call* mach:port_allocate *task-self*))) - (setq %sp-interrupts-inhibited (or ,old-flag T)) - (if (eql ,index (1- *reply-port-pointer*)) - (setq *reply-port-pointer* ,index) - (reallocate-reply-ports (1+ ,index))) - (values-list ,res)))))) - ;;; Eof-Or-Lose is a useful macro that handles EOF. @@ -248,7 +205,3 @@ (defmacro fast-read-byte (&rest stuff) `(fast-read-char ,@stuff)) - -#-new-compiler -(eval-when (compile) - (setq lisp::*bootstrap-defmacro* nil))