From 30eb66a335356bd98cf585d8cc0e52528bc8685a Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 27 Mar 2010 00:10:22 +0100 Subject: [PATCH] In the definition of binary-op, the produced defsystem did not have the right class. --- contrib/asdf/asdf-ecl.lisp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/contrib/asdf/asdf-ecl.lisp b/contrib/asdf/asdf-ecl.lisp index 3c4a4cd99..07fcdc8f7 100755 --- a/contrib/asdf/asdf-ecl.lisp +++ b/contrib/asdf/asdf-ecl.lisp @@ -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