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