Update of /project/elephant/cvsroot/elephant/src In directory common-lisp.net:/tmp/cvs-serv7868/src

Modified Files: metaclasses.lisp Log Message: new license, declare optimize

Date: Sun Aug 29 22:40:06 2004 Author: blee

Index: elephant/src/metaclasses.lisp diff -u elephant/src/metaclasses.lisp:1.1 elephant/src/metaclasses.lisp:1.2 --- elephant/src/metaclasses.lisp:1.1 Sun Aug 29 09:47:00 2004 +++ elephant/src/metaclasses.lisp Sun Aug 29 22:40:06 2004 @@ -12,6 +12,10 @@ ;;; Copyright (c) 2004 by Andrew Blumberg and Ben Lee ;;; ablumberg@common-lisp.net blee@common-lisp.net ;;; +;;; This program is released under the following license +;;; ("GPL"). For differenct licensing terms, contact the +;;; copyright holders. +;;; ;;; This program is free software; you can redistribute it ;;; and/or modify it under the terms of the GNU General ;;; Public License as published by the Free Software @@ -137,7 +141,8 @@

(defun make-persistent-reader (name) (lambda (instance) - (declare (type persistent instance)) + (declare (optimize (speed 3)) + (type persistent instance)) (persistent-slot-reader instance name)))

(defmacro persistent-slot-writer (new-value instance name) @@ -154,7 +159,8 @@

(defun make-persistent-writer (name) (lambda (new-value instance) - (declare (type persistent instance)) + (declare (optimize (speed 3)) + (type persistent instance)) (persistent-slot-writer new-value instance name)))

(defgeneric handle-optimized-accessors (slot-def))