Commit db94c217 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Remove change-class for permutation and combination

Remove change-class for permutation and combination because now
initialize-instance for grid:foreign-array will not try to change the
class from what is being made in make-instance.
parent daeed9cf
;; Combinations
;; Liam Healy, Sun Mar 26 2006 - 11:51
;; Time-stamp: <2010-06-28 22:39:51EDT combination.lisp>
;; Time-stamp: <2010-06-29 08:55:43EDT combination.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -62,7 +62,6 @@
'combination
:element-type '(unsigned-byte #+int64 64 #+int32 32)
:choice-of n :dimensions (list k)))))
(change-class comb 'combination)
(when initialize
(if (typep n 'combination)
(error "not available yet") ; (copy comb n)
......
;; Permutations
;; Liam Healy, Sun Mar 26 2006 - 11:51
;; Time-stamp: <2010-06-28 21:56:26EDT permutation.lisp>
;; Time-stamp: <2010-06-29 08:53:06EDT permutation.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -54,9 +54,6 @@
'permutation
:element-type '(unsigned-byte #+int64 64 #+int32 32)
:dimensions (if (typep n 'permutation) (dimensions n) (list n)))))
;; It is necessary to change class because the initialize-instance
;; :after method for grid:foreign-array changes to the vector class.
(change-class perm 'permutation)
(when initialize
(if (typep n 'permutation)
(error "not available yet") ; (copy perm n)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment