From d7db95499fa201dedd8bb94ccc0b84a2f51b35ba Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 10 Mar 1992 10:00:02 +0000 Subject: [PATCH] Fixed fmakunbound to not trash NIL and to return the correct value. --- compiler/rt/cell.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/compiler/rt/cell.lisp b/compiler/rt/cell.lisp index c177eaf90..c085c4a8b 100644 --- a/compiler/rt/cell.lisp +++ b/compiler/rt/cell.lisp @@ -7,7 +7,7 @@ ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/cell.lisp,v 1.6 1992/01/15 18:15:06 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/cell.lisp,v 1.7 1992/03/10 10:00:02 wlott Exp $ ;;; ;;; This file contains the VM definition of various primitive memory access ;;; VOPs for the IBM RT. @@ -166,7 +166,7 @@ (:translate symbol-function)) (define-vop (set-symbol-function) - (:translate %sp-set-definition) + (:translate %set-symbol-function) (:policy :fast-safe) (:args (symbol :scs (descriptor-reg)) (function :scs (descriptor-reg) :target result)) @@ -200,9 +200,8 @@ (defknown fmakunbound/symbol (symbol) symbol (unsafe)) ;;; (deftransform fmakunbound ((symbol) (symbol)) - '(progn - (fmakunbound/symbol symbol) - t)) + '(when symbol + (fmakunbound/symbol symbol))) ;;; (define-vop (fmakunbound/symbol) (:translate fmakunbound/symbol) -- GitLab