From 3c21a0ba20c34fc957108653b913026be673fb6a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 8 Jun 1990 17:59:56 +0000
Subject: [PATCH] Don't compile dispose-alien in the old compiler, 'cause we
 have uninterned pointer< and pointer>, so we can't %primitive them.

---
 code/alieneval.lisp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index 586d16515..22dfb39e5 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.1.1.15 1990/06/02 16:41:43 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.1.1.16 1990/06/08 17:59:56 wlott Exp $
 ;;;
 ;;;    This file contains any the part of the Alien implementation that
 ;;; is not part of the compiler.
@@ -423,14 +423,13 @@
 ;;;    Invalidate the memory pointed to by unless it is a statically
 ;;; allocated alien.
 ;;;
+#+new-compiler
 (defun dispose-alien (alien)
   "Release the storage allocated for Alien."
   (check-type alien alien-value)
   (let ((address (alien-value-sap alien)))
-    (unless (not (or (#-new-compiler %primitive pointer<
-				     address system-space-start)
-		     (#-new-compiler %primitive pointer>
-				     address alien-allocation-end)))
+    (unless (not (or (pointer< address system-space-start)
+		     (pointer> address alien-allocation-end)))
       (gr-call mach:vm_deallocate *task-self* address
 	       (logand #x-200 (ash (+ (alien-value-size alien) #xFFF)
 				   (- alien-address-shift)))))))
-- 
GitLab