Commit e15aaed2 authored by Liam Healy's avatar Liam Healy

In actual-array-class, don't replace real class names

In actual-array-class, if 'category is not one of 'vector, 'matrix or
'both, then assume it's actually a class name and just return it
without trying to make a class name.  This fixes a problem with
e.g. elt+ where the second argument specializer is a class name of the
scalar.
parent f3932b3d
;; Helpers for defining GSL functions on arrays
;; Liam Healy 2009-01-07 22:01:16EST defmfun-array.lisp
;; Time-stamp: <2011-01-12 00:22:59EST defmfun-array.lisp>
;; Time-stamp: <2011-01-29 21:40:31EST defmfun-array.lisp>
;;
;; Copyright 2009, 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -154,13 +154,15 @@
(case category
(:element-type (grid:number-class element-type))
(:component-float-type
(grid:number-class (grid:component-float-type element-type)))
(otherwise
(grid:data-class-name
(if (and (eq category 'both) replace-both)
replace-both
category)
element-type))))
(grid:number-class (grid:component-float-type element-type)))
((vector grid:matrix both)
(grid:data-class-name
(if (and (eq category 'both) replace-both)
replace-both
category)
element-type))
;; an actual not-to-be-replaced class name
(otherwise category)))
(defun actual-class-arglist
(arglist element-type c-arguments &optional replace-both)
......
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