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