Skip to content
Snippets Groups Projects
Commit 0350a83e authored by Liam Healy's avatar Liam Healy
Browse files

Add eval-when for push onto grid:*grid-data-superclasses*

parent 47751fc5
No related branches found
No related tags found
No related merge requests found
;; A "marray" is an array in both GSL and CL ;; A "marray" is an array in both GSL and CL
;; Liam Healy 2008-04-06 21:23:41EDT ;; Liam Healy 2008-04-06 21:23:41EDT
;; Time-stamp: <2009-12-27 09:42:04EST marray.lisp> ;; Time-stamp: <2010-01-02 22:45:49EST marray.lisp>
;; ;;
;; Copyright 2008, 2009 Liam M. Healy ;; Copyright 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License ;; Distributed under the terms of the GNU General Public License
...@@ -152,7 +152,8 @@ ...@@ -152,7 +152,8 @@
class-or-element-type)) class-or-element-type))
keys)) keys))
(pushnew 'marray grid:*grid-data-superclasses*) (eval-when (:compile-toplevel :load-toplevel :execute)
(pushnew 'marray grid:*grid-data-superclasses*))
(defmethod grid:make-grid-data (defmethod grid:make-grid-data
((type (eql 'marray)) dimensions rest-spec ((type (eql 'marray)) dimensions rest-spec
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment