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