From d516d2142579bbc18bc89cf9f5275490cdf87957 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 8 Oct 1990 13:18:30 +0000
Subject: [PATCH] Fixed typo in fboundp/setf transform.  Commented out
 fboundp/setf stuff, since it isn't really installed yet.

---
 compiler/mips/cell.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp
index fd31e164a..b20bac772 100644
--- a/compiler/mips/cell.lisp
+++ b/compiler/mips/cell.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.44 1990/09/24 00:32:20 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.45 1990/10/08 13:18:30 ram Exp $
 ;;;
 ;;;    This file contains the VM definition of various primitive memory access
 ;;; VOPs for the MIPS.
@@ -156,16 +156,18 @@
     (loadw value object vm:symbol-function-slot vm:other-pointer-type)
     (test-simple-type value temp target not-p vm:function-pointer-type)))
 
+#+nil(progn
 (defknown fboundp/setf (t) boolean (flushable))
 ;;;
 (deftransform fboundp ((x) (cons))
-  '(foundp/setf (cadr x)))
+  '(fboundp/setf (cadr x)))
 ;;;
 (define-vop (fboundp/setf boundp-frob)
   (:translate fboundp/setf)
   (:generator 10
     (loadw value object vm:symbol-setf-function-slot vm:other-pointer-type)
     (test-simple-type value temp target not-p vm:function-pointer-type)))
+)
 
 (define-vop (fast-symbol-value cell-ref)
   (:variant vm:symbol-value-slot vm:other-pointer-type)
-- 
GitLab