-
- (i (apply #'make-instance (or (second a)
- ;; if we didnt find the type,
- ;; use the symbol as a class.
- (if (eql (symbol-package type)
- (find-package 'keyword))
- (symbol-name type)
- type))
- (plist-union initargs (cddr a)))))
+ ;;;; TODO: this can be cleaned up, probably CHANGE-CLASS is better here
+ (i (apply #'change-class p (or (second a)
+ ;; if we didnt find the type,
+ ;; use the symbol as a class.
+ (if (eql (symbol-package type)
+ (find-package 'keyword))
+ (symbol-name type)
+ type))
+ (plist-union initargs (cddr a)))))