Forked from
asdf / asdf
Source project has a limited visibility.
-
Daniel Barlow authored
- (destructuring-bind (ignore name version-object) + (destructuring-bind (ignore name version-object) dep oops - :case :common :name name :type "SYSTEM" + :case :common :name name :type "ASD" and everywhere else that we found (defun class-for-type (parent type) - (let ((class (find-class (intern (symbol-name type) *package*) nil))) + (let ((class (find-class + (or (find-symbol (symbol-name type) *package*) + (find-symbol (symbol-name type) #.*package*)) nil))) fix for system definitions in packages that don't use ASDF
Daniel Barlow authored- (destructuring-bind (ignore name version-object) + (destructuring-bind (ignore name version-object) dep oops - :case :common :name name :type "SYSTEM" + :case :common :name name :type "ASD" and everywhere else that we found (defun class-for-type (parent type) - (let ((class (find-class (intern (symbol-name type) *package*) nil))) + (let ((class (find-class + (or (find-symbol (symbol-name type) *package*) + (find-symbol (symbol-name type) #.*package*)) nil))) fix for system definitions in packages that don't use ASDF