diff options
Diffstat (limited to 'sci-mathematics/fricas/files/fricas-sbcl-2.3.2.patch')
-rw-r--r-- | sci-mathematics/fricas/files/fricas-sbcl-2.3.2.patch | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/sci-mathematics/fricas/files/fricas-sbcl-2.3.2.patch b/sci-mathematics/fricas/files/fricas-sbcl-2.3.2.patch deleted file mode 100644 index f5dd949abaa2..000000000000 --- a/sci-mathematics/fricas/files/fricas-sbcl-2.3.2.patch +++ /dev/null @@ -1,18 +0,0 @@ -diff --git a/src/lisp/fricas-package.lisp b/src/lisp/fricas-package.lisp -index c0dfc4ef5..37e1afc1e 100644 ---- a/src/lisp/fricas-package.lisp -+++ b/src/lisp/fricas-package.lisp -@@ -34,7 +34,12 @@ - #+gcl - (shadow "QUIT") - --(do-symbols (x "FRICAS-LISP") (export (list x))) -+;;; We use uninterned symbols because at this point we do not -+;;; want to add symbols to FRICAS-LISP -+(let ((#1=#:ls nil)) -+ (do-symbols (#2=#:el "FRICAS-LISP") (setf #1# (cons #2# #1#))) -+ (mapcar (lambda (#3=#:x) (export (list #3#))) #1#) -+) - - (export '(quit chdir |getEnv| |getCLArgs| |load_quietly| get-current-directory - trim-directory-name pad-directory-name |