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