/[gcl]/gcl/pcl/gcl_pcl_impl_low.lisp
ViewVC logotype

Diff of /gcl/pcl/gcl_pcl_impl_low.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Wed Sep 7 03:07:18 2005 UTC revision 1.4 by camm, Wed Oct 12 10:52:29 2005 UTC
# Line 39  Line 39 
39  (eval-when (compile load eval)  (eval-when (compile load eval)
40  (pushnew :turbo-closure *features*)  (pushnew :turbo-closure *features*)
41  (pushnew :turbo-closure-env-size *features*))  (pushnew :turbo-closure-env-size *features*))
 )  
42    
43  (defmacro %svref (vector index)  (defmacro %svref (vector index)
44    `(svref (the simple-vector ,vector) (the fixnum ,index)))    `(svref (the simple-vector ,vector) (the fixnum ,index)))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26