From 369b29be707995d1e41d220d296df9d62400c667 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 13 Oct 1990 04:55:13 +0000 Subject: [PATCH] Added lisp::maybe-gc as a static symbol. Fixed some :type slot options in the primitive-object defstruct. --- compiler/mips/parms.lisp | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp index 7f28aec21..60cb3e5dc 100644 --- a/compiler/mips/parms.lisp +++ b/compiler/mips/parms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.74 1990/10/02 05:39:39 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.75 1990/10/13 04:55:13 wlott Exp $ ;;; ;;; This file contains some parameterizations of various VM ;;; attributes for the MIPS. This file is separate from other stuff so @@ -253,8 +253,8 @@ (defstruct (primitive-object ) (name nil :type symbol) - (header nil :type (or (member t nil) fixnum)) - (lowtag nil :type (or null fixnum)) + (header nil :type symbol) + (lowtag nil :type symbol) (options nil :type list) (slots nil :type list) (size 0 :type fixnum) @@ -554,6 +554,9 @@ two-arg-<= two-arg->= two-arg-/= %negate two-arg-and two-arg-ior two-arg-xor length two-arg-gcd two-arg-lcm + + ;; Auto GC interface. + lisp::maybe-gc )) (defparameter exported-static-symbols @@ -580,9 +583,10 @@ lisp::*free-interrupt-context-index* mach::*interrupts-enabled* mach::*interrupt-pending* - )) - + ;; Auto GC interface. + lisp::maybe-gc + )) (defun static-symbol-p (symbol) -- GitLab