Skip to content
Snippets Groups Projects
Commit 0b79e32e authored by dtc's avatar dtc
Browse files

The alien pointer subtype relationship was returning NIL for

(subtypep '(alien (* t)) '(alien (* t)))
which caused other failures in the type system.
parent fec88cf3
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.39 1997/02/22 19:19:50 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.40 1997/08/24 03:15:48 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -930,7 +930,7 @@
(if to2
(alien-subtype-p to1 to2)
t)
nil))))
(null to2)))))
(def-alien-type-method (pointer :deport-gen) (type value)
(values
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment