Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv9148

Modified Files: storage-types.lisp Log Message: Started support for stack-allocating functions (of dynamic extent). Primary purpose is to evaluate e.g. handler-case without having to cons up a function for each handler.

Date: Mon Jan 3 12:55:59 2005 Author: ffjeld

Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.47 movitz/storage-types.lisp:1.48 --- movitz/storage-types.lisp:1.47 Mon Dec 20 11:53:47 2004 +++ movitz/storage-types.lisp Mon Jan 3 12:55:57 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2000-2004, +;;;; Copyright (C) 2000-2005, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: storage-types.lisp @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.47 2004/12/20 10:53:47 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.48 2005/01/03 11:55:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -760,6 +760,8 @@ :initarg :extent :initform :unused :accessor movitz-funobj-extent) + (allocation + :accessor movitz-allocation) (usage :initform nil :accessor movitz-funobj-usage)