redefining built-in function

Question

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 :)

Accepted Answer

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"`.

redefining built-in function

Solution

Problem