Skip to content
Commit a28bd5a2 authored by Daniel Barlow's avatar Daniel Barlow
Browse files

version-satisfies is not just a method not an operation

 -		   (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
parent 6f6d3345
Loading
Loading
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please to comment