From 26795bb12629aadd32415d38814f248d032cb645 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 9 Oct 1990 23:05:12 +0000 Subject: [PATCH] Replaced %primitive structure-ref with the magic function structure-ref. --- code/pred.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/pred.lisp b/code/pred.lisp index fa668e660..a2d01ed9c 100644 --- a/code/pred.lisp +++ b/code/pred.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.10 1990/10/03 09:58:48 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.11 1990/10/09 23:05:12 wlott Exp $ ;;; ;;; Predicate functions for CMU Common Lisp. ;;; @@ -143,7 +143,7 @@ (symbol-package :foo)) 'keyword 'symbol)) - (structure (%primitive c::structure-ref object 0)) + (structure (c::structure-ref object 0)) (array (type-specifier (ctype-of object))) (system-area-pointer 'system-area-pointer) (weak-pointer 'weak-pointer) @@ -305,7 +305,7 @@ (let ((info (info type defined-structure-info type))) (if info (and (structurep object) - (let ((obj-name (%primitive structure-ref object 0))) + (let ((obj-name (c::structure-ref object 0))) (or (eq obj-name type) (if (member obj-name (c::dd-included-by info) :test #'eq) -- GitLab