[elephant-cvs] CVS update: elephant/src/metaclasses.lisp

[blee at common-lisp.net]

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 at common-lisp.net> <blee at 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))