/[cmucl]/src/hemlock/hacks.lisp
ViewVC logotype

Diff of /src/hemlock/hacks.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ram, Fri Jul 13 14:53:08 1990 UTC revision 1.1.1.1 by wlott, Fri Aug 3 10:18:33 1990 UTC
# Line 3  Line 3 
3  (defun %sp-byte-blt (src start dest dstart end)  (defun %sp-byte-blt (src start dest dstart end)
4    (%primitive byte-blt src start dest dstart end))    (%primitive byte-blt src start dest dstart end))
5    
 (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))  
   
6  (defun lisp::sap-to-fixnum (x) (sap-int x))  (defun lisp::sap-to-fixnum (x) (sap-int x))
7  (defun lisp::fixnum-to-sap (x) (int-sap x))  (defun lisp::fixnum-to-sap (x) (int-sap x))
8  (defun lisp::%sp-make-fixnum (x) (%primitive make-fixnum x))  (defun lisp::%sp-make-fixnum (x) (%primitive make-fixnum x))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5