Skip to content
Snippets Groups Projects
Commit 30c1b6c2 authored by wlott's avatar wlott
Browse files

Nuked defuns of %sp-find-character{,-with-attribute} 'cause we have real

versions of them.
parent b2f69c56
No related branches found
No related tags found
No related merge requests found
......@@ -3,12 +3,6 @@
(defun %sp-byte-blt (src start dest dstart end)
(%primitive byte-blt src start dest dstart end))
(defun %sp-find-character (string start end char)
(%primitive find-character string start end char))
(defun %sp-find-character-with-attribute (a b c d e)
(%primitive find-character-with-attribute a b c d e))
(defun lisp::sap-to-fixnum (x) (sap-int x))
(defun lisp::fixnum-to-sap (x) (int-sap x))
(defun lisp::%sp-make-fixnum (x) (%primitive make-fixnum x))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment