Skip to content
Snippets Groups Projects
Commit 369b29be authored by wlott's avatar wlott
Browse files

Added lisp::maybe-gc as a static symbol. Fixed some :type slot options

in the primitive-object defstruct.
parent 7f9d6a20
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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 ;;; This file contains some parameterizations of various VM
;;; attributes for the MIPS. This file is separate from other stuff so ;;; attributes for the MIPS. This file is separate from other stuff so
...@@ -253,8 +253,8 @@ ...@@ -253,8 +253,8 @@
(defstruct (primitive-object (defstruct (primitive-object
) )
(name nil :type symbol) (name nil :type symbol)
(header nil :type (or (member t nil) fixnum)) (header nil :type symbol)
(lowtag nil :type (or null fixnum)) (lowtag nil :type symbol)
(options nil :type list) (options nil :type list)
(slots nil :type list) (slots nil :type list)
(size 0 :type fixnum) (size 0 :type fixnum)
...@@ -554,6 +554,9 @@ ...@@ -554,6 +554,9 @@
two-arg-<= two-arg->= two-arg-/= %negate two-arg-<= two-arg->= two-arg-/= %negate
two-arg-and two-arg-ior two-arg-xor two-arg-and two-arg-ior two-arg-xor
length two-arg-gcd two-arg-lcm length two-arg-gcd two-arg-lcm
;; Auto GC interface.
lisp::maybe-gc
)) ))
(defparameter exported-static-symbols (defparameter exported-static-symbols
...@@ -580,9 +583,10 @@ ...@@ -580,9 +583,10 @@
lisp::*free-interrupt-context-index* lisp::*free-interrupt-context-index*
mach::*interrupts-enabled* mach::*interrupts-enabled*
mach::*interrupt-pending* mach::*interrupt-pending*
))
;; Auto GC interface.
lisp::maybe-gc
))
(defun static-symbol-p (symbol) (defun static-symbol-p (symbol)
......
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