From 580142c26b99a99d1aa899ac678e63ffe628e956 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 9 Jan 1991 02:11:51 +0000
Subject: [PATCH] Use the real structurep, etc.

---
 compiler/sparc/type-vops.lisp | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/compiler/sparc/type-vops.lisp b/compiler/sparc/type-vops.lisp
index a647df044..fbc7129bc 100644
--- a/compiler/sparc/type-vops.lisp
+++ b/compiler/sparc/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.3 1990/12/17 19:35:36 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.4 1991/01/09 02:11:51 wlott Exp $
 ;;; 
 ;;; This file contains the VM definition of type testing and checking VOPs
 ;;; for the SPARC.
@@ -84,12 +84,8 @@
     (move result value)))
 (primitive-type-vop check-list (:check) list)
 
-#+nil ;; ### Only after we have real structures.
 (def-type-vops structurep check-structure structure
-  object-not-structure vm:structure-pointer-type)
-
-(def-type-vops structurep check-structure structure
-  object-not-structure-error vm:structure-header-type))
+  object-not-structure-error vm:structure-pointer-type)
 
 (def-type-vops bignump check-bigunm bignum
   object-not-bignum-error vm:bignum-type)
-- 
GitLab