From 30c1b6c2cecf37c6841005896b86875ec248fa84 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 3 Aug 1990 10:18:33 +0000
Subject: [PATCH] Nuked defuns of %sp-find-character{,-with-attribute} 'cause
 we have real versions of them.

---
 hemlock/hacks.lisp | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/hemlock/hacks.lisp b/hemlock/hacks.lisp
index 8f6743db0..df924a48d 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))
-- 
GitLab