Skip to content
Browse files

Revert aggregatep for foreign-pointer-type to nil

  • Loading branch information...
1 parent 0a0b17b commit ef79c2f39102b449120cfeab2d837dc5b1adea00 @liamh liamh committed
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/early-types.lisp
5 src/early-types.lisp
@@ -215,8 +215,9 @@ Signals an error if FOREIGN-TYPE is undefined."))
(defmethod aggregatep ((type foreign-pointer-type))
;; LMH this is necessary to be consistent with the deprecated "bare struct" specification of pointers to structs.
- "A foreign pointer type is an aggregate type."
- t)
+ ;; LMH put this to NIL to prevent serious breakage; Ryan's example still fails.
+ "A foreign pointer type is an aggregate type."
+ nil)
;;;# Structure Type

0 comments on commit ef79c2f

Please sign in to comment.
Something went wrong with that request. Please try again.