Skip to content
Snippets Groups Projects
Commit 5092022a authored by wlott's avatar wlott
Browse files

We now have real structures, so test them accordingly.

parent f8175523
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.23 1990/11/03 03:25:59 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.24 1990/12/18 20:49:49 wlott Exp $
;;; ;;;
;;; This file contains the VM definition of type testing and checking VOPs ;;; This file contains the VM definition of type testing and checking VOPs
;;; for the RT. ;;; for the RT.
...@@ -66,7 +66,6 @@ ...@@ -66,7 +66,6 @@
(frob listp check-list list (frob listp check-list list
vm:list-pointer-type object-not-list-error) vm:list-pointer-type object-not-list-error)
#+nil ;; ### Only after we have real structures.
(frob structurep check-structure structure (frob structurep check-structure structure
vm:structure-pointer-type object-not-structure) vm:structure-pointer-type object-not-structure)
...@@ -129,10 +128,7 @@ ...@@ -129,10 +128,7 @@
vm:sap-type object-not-sap-error) vm:sap-type object-not-sap-error)
(frob weak-pointer-p check-weak-pointer weak-pointer (frob weak-pointer-p check-weak-pointer weak-pointer
vm:weak-pointer-type object-not-weak-pointer-error) vm:weak-pointer-type object-not-weak-pointer-error))
(frob structurep check-structure structure
vm:structure-header-type object-not-structure-error))
;;; Slightly tenser versions for FIXNUM's ;;; Slightly tenser versions for FIXNUM's
......
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