问题
How would i redefine a built-in function, while keeping a reference to the old function under a different name?
ie with SBCL
(unlock-package 'common-lisp)
(defun old+ (a b) ??????
(defun + (a b) (old+ a b))
I'm porting code to a LISP implementation that doesn't have float data type. So I wanted to redefine the the math ops to use fixed integer math.
I suppose i can solve this problem with search-and-replace as well :)
回答1:
To answer your specific question:
(defconstant +old-plus+ (fdefinition '+))
(defun + (&rest args) (apply +old-plus+ args))
Note that if you evaluate this again (e.g., by reloading the file where this code contained), you might have a problem: +old-plus+ might get silently redefined to your new + (or you might get an error, or you might get a warning) and you will lose the original + definition.
Therefore it seems that a better approach would be to create a new package where all symbols are imported from CL except for + which is shadowed, and then use that package instead of CL (untested):
(rename-package "COMMON-LISP" "COMMON-LISP-ORIGINAL")
(make-package "COMMON-LISP")
(use-package "COMMON-LISP-ORIGINAL" "COMMON-LISP")
(shadow "+" "COMMON-LISP")
(do-external-symbols (s "COMMON-LISP-ORIGINAL")
(export (find-symbol (symbol-name s)) "COMMON-LISP"))
(defun common-lisp::+ (&rest args) (apply #'common-lisp-original:+ args))
Now you should be able to process the code.
Note that you should not load the above code twice because "consequences are undefined" if you rename-package to an existing "COMMON-LISP-ORIGINAL".
来源：https://stackoverflow.com/questions/15691868/redefining-built-in-function