March 2004 - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

[movitz-cvs] CVS update: movitz/losp/muerte/typep.lisp
by Frode Vatvedt Fjeld 29 Mar '04

29 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv4801 Modified Files: typep.lisp Log Message: Add a compile-time assertion to the typep compiler-macro, ensuring consitency for the pointer type. Date: Mon Mar 29 09:34:20 2004 Author: ffjeld Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.4 movitz/losp/muerte/typep.lisp:1.5 --- movitz/losp/muerte/typep.lisp:1.4 Wed Mar 24 06:24:52 2004 +++ movitz/losp/muerte/typep.lisp Mon Mar 29 09:34:20 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.4 2004/03/24 11:24:52 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.5 2004/03/29 14:34:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -188,6 +188,8 @@ (tag5 (make-tag-typep :null)) (tag6 (make-tag-typep :other)) (pointer + (assert (equal (mapcar 'movitz::tag '(:cons :other :symbol)) + '(1 6 7))) `(with-inline-assembly-case () (do-case (t :boolean-zf=0 :labels (done)) (:compile-form (:result-mode :eax) ,object)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/inspect.lisp
by Frode Vatvedt Fjeld 29 Mar '04

29 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25952 Modified Files: inspect.lisp Log Message: Some new functions required by GC functionality. Date: Mon Mar 29 09:33:29 2004 Author: ffjeld Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.4 movitz/losp/muerte/inspect.lisp:1.5 --- movitz/losp/muerte/inspect.lisp:1.4 Fri Mar 26 09:05:20 2004 +++ movitz/losp/muerte/inspect.lisp Mon Mar 29 09:33:29 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.4 2004/03/26 14:05:20 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.5 2004/03/29 14:33:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -168,6 +168,24 @@ (when (member :catch types) (format t "~&catch: ~Z: ~S" tag tag)))))) +(defun shallow-copy (old) + "Allocate a new object that is similar to the old one." + (etypecase old + (cons + (cons (car old) (cdr old))) + (std-instance + (allocate-std-instance (std-instance-class old) + (std-instance-slots old))) + (symbol + (copy-symbol old t)) + (vector + (make-array (array-dimension old 0) + :element-type (array-element-type old) + :initial-contents old + :fill-pointer (fill-pointer old))) + (function + (copy-funobj old)) + )) (defun malloc-words (words) (malloc-clumps (1+ (truncate (1+ words) 2)))) @@ -182,3 +200,60 @@ (setf (memref x -6 (* i 2) :lisp) nil (memref x -2 (* i 2) :lisp) nil)) x)) + +(defun malloc-data-clumps (clumps) + "Allocate clumps for non-pointer data (i.e. doesn't require initialization)." + (malloc-clumps clumps)) + +(defun location-in-object-p (object location) + "Is location inside object?" + (let ((object-location (object-location object))) + (etypecase object + ((or number null character) + nil) + (cons + (<= object-location + location + (+ object-location 1))) + (symbol + (<= object-location + location + (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-symbol)))) + (run-time-context + (<= object-location + location + (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-constant-block)))) + (std-instance + (<= object-location + location + (+ -1 object-location #.(movitz::movitz-type-word-size :movitz-std-instance)))) + (function + (<= object-location + location + (+ -1 object-location + #.(movitz::movitz-type-word-size :movitz-funobj) + (funobj-num-constants object)))) + ((or vector-u8 string) + (<= object-location + location + (+ -1 object-location + #.(movitz::movitz-type-word-size :movitz-vector) + (* 2 (truncate (+ (array-dimension object 0) 7) 8))))) + (vector-u16 + (<= object-location + location + (+ -1 object-location + #.(movitz::movitz-type-word-size :movitz-vector) + (* 2 (truncate (+ (array-dimension object 0) 3) 4))))) + ((or vector-u32 simple-vector) + (<= object-location + location + (+ -1 object-location + #.(movitz::movitz-type-word-size :movitz-vector) + (* 2 (truncate (+ (array-dimension object 0) 1) 2))))) + (structure-object + (<= object-location + location + (+ -1 object-location + #.(movitz::movitz-type-word-size :movitz-struct) + (* 2 (truncate (+ (structure-object-length object) 1) 2))))))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/common-lisp.lisp
by Frode Vatvedt Fjeld 29 Mar '04

29 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24561 Modified Files: common-lisp.lisp Log Message: Include muerte/scavenge. Date: Mon Mar 29 09:33:02 2004 Author: ffjeld Index: movitz/losp/muerte/common-lisp.lisp diff -u movitz/losp/muerte/common-lisp.lisp:1.2 movitz/losp/muerte/common-lisp.lisp:1.3 --- movitz/losp/muerte/common-lisp.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/common-lisp.lisp Mon Mar 29 09:33:01 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:41:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: common-lisp.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: common-lisp.lisp,v 1.3 2004/03/29 14:33:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -47,6 +47,7 @@ (require :muerte/restarts) (require :muerte/conditions) (require :muerte/read) +(require :muerte/scavenge) (require :muerte/simple-streams) (require :muerte/io-port)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/basic-functions.lisp
by Frode Vatvedt Fjeld 29 Mar '04

29 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24011 Modified Files: basic-functions.lisp Log Message: Minor edits. Date: Mon Mar 29 09:32:40 2004 Author: ffjeld Index: movitz/losp/muerte/basic-functions.lisp diff -u movitz/losp/muerte/basic-functions.lisp:1.7 movitz/losp/muerte/basic-functions.lisp:1.8 --- movitz/losp/muerte/basic-functions.lisp:1.7 Thu Mar 25 20:49:06 2004 +++ movitz/losp/muerte/basic-functions.lisp Mon Mar 29 09:32:40 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 4 18:41:57 2001 ;;;; -;;;; $Id: basic-functions.lisp,v 1.7 2004/03/26 01:49:06 ffjeld Exp $ +;;;; $Id: basic-functions.lisp,v 1.8 2004/03/29 14:32:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -331,10 +331,10 @@ (getf (load-global-constant global-properties) property)) (define-compiler-macro object-location (object) + "The location is the object's address divided by fixnum-factor." `(with-inline-assembly (:returns :register) (:compile-form (:result-mode :register) ,object) (:andl ,(* -2 movitz::+movitz-fixnum-factor+) (:result-register)))) - (defun object-location (object) "The location is the object's address divided by fixnum-factor." @@ -355,4 +355,6 @@ (defun %word-offset (word offset) (%word-offset word offset)) + +

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/arrays.lisp
by Frode Vatvedt Fjeld 29 Mar '04

29 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv21953 Modified Files: arrays.lisp Log Message: Allocate (some) specialized arrays in terms of malloc-data-clumps rather than the old (deprecated) inline-malloc. Date: Mon Mar 29 09:32:12 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.12 movitz/losp/muerte/arrays.lisp:1.13 --- movitz/losp/muerte/arrays.lisp:1.12 Sun Mar 28 11:20:44 2004 +++ movitz/losp/muerte/arrays.lisp Mon Mar 29 09:32:12 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sun Feb 11 23:14:04 2001 ;;;; -;;;; $Id: arrays.lisp,v 1.12 2004/03/28 16:20:44 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.13 2004/03/29 14:32:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -505,45 +505,46 @@ (setf fill-pointer (if (integerp fill-pointer) fill-pointer dimensions)) (cond ((equal element-type 'character) - (let ((a (inline-malloc (+ #.(bt:sizeof 'movitz::movitz-vector) dimensions) - :other-tag :vector - :wide-other-tag #.(bt:enum-value 'movitz::movitz-vector-element-type - :character)))) - (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::flags) + (let ((array (malloc-data-clumps (truncate (+ dimensions 7 8) 8)))) + (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::flags) 0 :unsigned-byte16) 0) - (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::num-elements) + (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::num-elements) 0 :unsigned-byte16) dimensions) - (setf (fill-pointer a) fill-pointer) + (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::type) + 0 :unsigned-byte16) + #.(movitz:vector-type-tag :character)) + (check-type array string) + (setf (fill-pointer array) fill-pointer) (cond (initial-element (check-type initial-element character) (dotimes (i dimensions) - (setf (char%unsafe a i) initial-element))) + (setf (char array i) initial-element))) (initial-contents (dotimes (i dimensions) - (setf (char a i) (elt initial-contents i))))) - a)) + (setf (char array i) (elt initial-contents i))))) + array)) ((member element-type '(u8 (unsigned-byte 8)) :test #'equal) - (let ((a (inline-malloc (+ #.(bt:sizeof 'movitz::movitz-vector) dimensions) - :other-tag :vector - :wide-other-tag #.(bt:enum-value 'movitz::movitz-vector-element-type - :u8)))) - (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::flags) + (let ((array (malloc-data-clumps (truncate (+ dimensions 7 8) 8)))) + (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::flags) 0 :unsigned-byte16) 0) - (setf (memref a #.(bt:slot-offset 'movitz::movitz-vector 'movitz::num-elements) + (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::num-elements) 0 :unsigned-byte16) dimensions) - (setf (fill-pointer a) fill-pointer) + (setf (memref array #.(bt:slot-offset 'movitz::movitz-vector 'movitz::type) + 0 :unsigned-byte16) + #.(movitz:vector-type-tag :u8)) + (setf (fill-pointer array) fill-pointer) (cond (initial-element (dotimes (i dimensions) - (setf (aref a i) initial-element))) + (setf (aref array i) initial-element))) (initial-contents - (replace a initial-contents))) - a)) + (replace array initial-contents))) + array)) ((member element-type '(u32 (unsigned-byte 32)) :test #'equal) (let ((a (inline-malloc (+ #.(bt:sizeof 'movitz::movitz-vector) (* 4 dimensions)) :other-tag :vector

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/scavenge.lisp
by Frode Vatvedt Fjeld 29 Mar '04

29 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv14089 Added Files: scavenge.lisp Log Message: Utility functions for scavenging heap memory and stack memory for pointer references. Date: Mon Mar 29 09:30:22 2004 Author: ffjeld

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/symbols.lisp
by Frode Vatvedt Fjeld 29 Mar '04

29 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv14977 Modified Files: symbols.lisp Log Message: Re-named create-symbol to %create-symbol, and avoided it checking the name being a string (useful during GC migration). Date: Sun Mar 28 20:57:48 2004 Author: ffjeld Index: movitz/losp/muerte/symbols.lisp diff -u movitz/losp/muerte/symbols.lisp:1.5 movitz/losp/muerte/symbols.lisp:1.6 --- movitz/losp/muerte/symbols.lisp:1.5 Sun Mar 28 12:33:46 2004 +++ movitz/losp/muerte/symbols.lisp Sun Mar 28 20:57:48 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 4 23:55:41 2001 ;;;; -;;;; $Id: symbols.lisp,v 1.5 2004/03/28 17:33:46 ffjeld Exp $ +;;;; $Id: symbols.lisp,v 1.6 2004/03/29 01:57:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -137,7 +137,7 @@ (not (eq (movitz-accessor symbol movitz-symbol function-value) (load-global-constant movitz::unbound-function)))))) -(defun create-symbol (name &optional (package nil) +(defun %create-symbol (name &optional (package nil) (plist nil) (value (load-global-constant unbound-value)) (function (load-global-constant movitz::unbound-function)) @@ -146,16 +146,17 @@ (assert (= 1 (- (movitz:tag :symbol) (movitz:tag :other))))) (let ((symbol (%word-offset (malloc-clumps 3) 1))) (setf-movitz-accessor (symbol movitz-symbol package) package) + (setf-movitz-accessor (symbol movitz-symbol name) name) (setf-movitz-accessor (symbol movitz-symbol hash-key) (sxhash name)) (setf (symbol-flags symbol) flags (symbol-plist symbol) plist (symbol-function symbol) function - (symbol-name symbol) name (symbol-value symbol) value) symbol)) (defun make-symbol (name) - (create-symbol name)) + (check-type name string "a symbol name") + (%create-symbol name)) (defun copy-symbol (symbol &optional copy-properties) "copy-symbol returns a fresh, uninterned symbol, the name of which @@ -163,13 +164,13 @@ symbol." (if (or (eq nil symbol) (not copy-properties)) - (create-symbol (symbol-name symbol)) - (create-symbol (symbol-name symbol) - nil - (symbol-plist symbol) - (%unbounded-symbol-value symbol) - (%unbounded-symbol-function symbol) - (symbol-flags symbol)))) + (%create-symbol (symbol-name symbol)) + (%create-symbol (symbol-name symbol) + nil + (symbol-plist symbol) + (%unbounded-symbol-value symbol) + (%unbounded-symbol-function symbol) + (symbol-flags symbol)))) (defun symbol-flags (symbol) (etypecase symbol

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/primitive-functions.lisp
by Frode Vatvedt Fjeld 29 Mar '04

29 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19746 Modified Files: primitive-functions.lisp Log Message: Re-arranged complicated-class-of so as to do the "other" types first, since the classes with their own tags are likely to be caught before this function is ever called. Also, make sure that (class-of "foo") returns the string class, not vector. Date: Sun Mar 28 20:09:46 2004 Author: ffjeld Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.5 movitz/losp/muerte/primitive-functions.lisp:1.6 --- movitz/losp/muerte/primitive-functions.lisp:1.5 Thu Mar 18 04:21:17 2004 +++ movitz/losp/muerte/primitive-functions.lisp Sun Mar 28 20:09:46 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.5 2004/03/18 09:21:17 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.6 2004/03/29 01:09:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -577,22 +577,12 @@ (movitz-accessor object movitz-std-instance class)) (standard-gf-instance (movitz-accessor object movitz-funobj-standard-gf standard-gf-class)) - (null - (find-class 'null)) - (cons - (find-class 'cons)) - (symbol - (find-class 'symbol)) - (fixnum - (find-class 'fixnum)) + (string + (find-class 'string)) (vector (find-class 'vector)) (compiled-function (find-class 'function)) -;;; (hash-table -;;; (find-class 'hash-table)) -;;; (package -;;; (find-class 'package)) (structure-object (find-class (structure-object-name object))) (character @@ -601,6 +591,14 @@ (find-class 'basic-restart)) (run-time-context (find-class 'run-time-context)) + (null + (find-class 'null)) + (cons + (find-class 'cons)) + (symbol + (find-class 'symbol)) + (fixnum + (find-class 'fixnum)) (tag6 (error "Don't know the class of ~Z with other-type #x~X." object (with-inline-assembly (:returns :untagged-fixnum-ecx)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/symbols.lisp
by Frode Vatvedt Fjeld 28 Mar '04

28 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv14413 Modified Files: symbols.lisp Log Message: Added functions copy-symbol, create-symbol, %unbounded-symbol-value, and %unbounded-symbol-function, and rewrote make-symbol in terms of create-symbol. Date: Sun Mar 28 12:33:46 2004 Author: ffjeld Index: movitz/losp/muerte/symbols.lisp diff -u movitz/losp/muerte/symbols.lisp:1.4 movitz/losp/muerte/symbols.lisp:1.5 --- movitz/losp/muerte/symbols.lisp:1.4 Wed Mar 24 08:31:43 2004 +++ movitz/losp/muerte/symbols.lisp Sun Mar 28 12:33:46 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 4 23:55:41 2001 ;;;; -;;;; $Id: symbols.lisp,v 1.4 2004/03/24 13:31:43 ffjeld Exp $ +;;;; $Id: symbols.lisp,v 1.5 2004/03/28 17:33:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -30,6 +30,19 @@ (:compile-form (:result-mode :eax) symbol) (:call-global-constant dynamic-load))))) +(defun %unbounded-symbol-value (symbol) + "Return the symbol's value without checking if it's bound or not." + (check-type symbol symbol) + (with-inline-assembly (:returns :eax) + (:compile-form (:result-mode :eax) symbol) + (:call-global-constant dynamic-find-binding) + (:jnc 'no-local-binding) + (:movl (:eax) :eax) + (:jmp 'done) + no-local-binding + (:movl (:eax #.(bt:slot-offset 'movitz::movitz-symbol 'movitz::value)) :eax) + done)) + (defun (setf symbol-value) (value symbol) (etypecase symbol (null @@ -62,6 +75,10 @@ (error 'undefined-function :name symbol)) function-value)) +(defun %unbounded-symbol-function (symbol) + (check-type symbol symbol) + (movitz-accessor symbol movitz-symbol function-value)) + (defun (setf symbol-function) (value symbol) (check-type symbol symbol) (check-type value compiled-function) @@ -120,17 +137,39 @@ (not (eq (movitz-accessor symbol movitz-symbol function-value) (load-global-constant movitz::unbound-function)))))) -(defun make-symbol (name) +(defun create-symbol (name &optional (package nil) + (plist nil) + (value (load-global-constant unbound-value)) + (function (load-global-constant movitz::unbound-function)) + (flags 0)) (eval-when (:compile-toplevel) (assert (= 1 (- (movitz:tag :symbol) (movitz:tag :other))))) (let ((symbol (%word-offset (malloc-clumps 3) 1))) - (setf-movitz-accessor (symbol movitz-symbol package) nil) + (setf-movitz-accessor (symbol movitz-symbol package) package) (setf-movitz-accessor (symbol movitz-symbol hash-key) (sxhash name)) - (setf (symbol-flags symbol) 0 - (symbol-function symbol) (load-global-constant movitz::unbound-function) + (setf (symbol-flags symbol) flags + (symbol-plist symbol) plist + (symbol-function symbol) function (symbol-name symbol) name - (symbol-value symbol) (load-global-constant unbound-value)) + (symbol-value symbol) value) symbol)) + +(defun make-symbol (name) + (create-symbol name)) + +(defun copy-symbol (symbol &optional copy-properties) + "copy-symbol returns a fresh, uninterned symbol, the name of which + is string= to and possibly the same as the name of the given + symbol." + (if (or (eq nil symbol) + (not copy-properties)) + (create-symbol (symbol-name symbol)) + (create-symbol (symbol-name symbol) + nil + (symbol-plist symbol) + (%unbounded-symbol-value symbol) + (%unbounded-symbol-function symbol) + (symbol-flags symbol)))) (defun symbol-flags (symbol) (etypecase symbol

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/functions.lisp
by Frode Vatvedt Fjeld 28 Mar '04

28 Mar '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7395 Modified Files: functions.lisp Log Message: Added placeholder function funobj-frame-num-unboxed. The idea is that when the compiler supports local unboxed variables, a field in the funobj is used to mark off such sections of the stack-frame (each stack-frame also holds a reference to the funobj). Date: Sun Mar 28 12:31:41 2004 Author: ffjeld Index: movitz/losp/muerte/functions.lisp diff -u movitz/losp/muerte/functions.lisp:1.6 movitz/losp/muerte/functions.lisp:1.7 --- movitz/losp/muerte/functions.lisp:1.6 Fri Mar 26 08:58:01 2004 +++ movitz/losp/muerte/functions.lisp Sun Mar 28 12:31:41 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 12 22:58:54 2002 ;;;; -;;;; $Id: functions.lisp,v 1.6 2004/03/26 13:58:01 ffjeld Exp $ +;;;; $Id: functions.lisp,v 1.7 2004/03/28 17:31:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -312,6 +312,11 @@ (defun funobj-debug-info (funobj) (check-type funobj compiled-function) (movitz-accessor-u16 funobj movitz-funobj debug-info)) + +(defun funobj-frame-num-unboxed (funobj) + "The number of unboxed slots in this function's stack-frame(s)." + (declare (ignore funobj)) + 0) (defun make-funobj (&key (name :unnamed) (code-vector (funobj-code-vector #'constantly-prototype))

1 0