diff --git a/hemlock/hacks.lisp b/hemlock/hacks.lisp index 8f6743db0c15e0c383e9a2de027eec0c1b330e17..df924a48d4318e8eb5de7be48d5f8eee1b14dc43 100644 --- a/hemlock/hacks.lisp +++ b/hemlock/hacks.lisp @@ -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))