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