From f4af713a87ce113f8d24ad8176a7d2566144e815 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 20 Apr 1990 00:36:19 +0000
Subject: [PATCH] Added fake definitions for careful-symbol-function and
 set-symbol-function-carefully so that we can use them before we get all the
 trace stuff up and running.

---
 code/fdefinition.lisp | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/code/fdefinition.lisp b/code/fdefinition.lisp
index 24ba1b5af..8f08bb514 100644
--- a/code/fdefinition.lisp
+++ b/code/fdefinition.lisp
@@ -7,12 +7,14 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1.1.1.2 1990/04/20 00:36:19 wlott Exp $
+;;;
 ;;;    Functions that hack on the global function namespace (primarily
 ;;; concerned with SETF functions here.)
 ;;;
 ;;; Written by Rob MacLachlan
 ;;;
-(in-package 'lisp)
+(in-package "LISP")
 (export '(fdefinition fboundp fmakunbound))
 
 (defvar *setf-functions* (make-hash-table :test #'equal))
@@ -35,6 +37,14 @@
 
 ); Eval-When (Compile Eval)
 
+#+new-compiler
+(defun careful-symbol-function (name)
+  (symbol-function name))
+
+#+new-compiler
+(defun set-symbol-function-carefully (name value)
+  (setf (symbol-function name) value))
+
 (defun fdefinition (name)
   "Return Name's global function definition."
   (with-function-name name
-- 
GitLab