In the definition of binary-op, the produced defsystem did not have the right class.

This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-27 00:10:22 +01:00
parent d04530664e
commit 30eb66a335

View file

@ -394,11 +394,13 @@
(software-type)
(machine-type)
(software-version))
(pprint `(defsystem ,name-keyword
:components ((:compiled-file ,(pathname-name fasl)))
:lib ,(make-pathname :name (pathname-name library)
:type (pathname-type library)))
s))))
(let ((*package* (find-package :keyword)))
(pprint `(defsystem ,name-keyword
:class asdf:prebuilt-system
:components ((:compiled-file ,(pathname-name fasl)))
:lib ,(make-pathname :name (pathname-name library)
:type (pathname-type library)))
s)))))
;;;
;;; Final integration steps