/[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.3 by pmai, Tue Dec 11 00:56:51 2001 UTC revision 1.4 by rtoy, Sat Jun 20 12:22:03 2009 UTC
# Line 1  Line 1 
1  (in-package "HI")  (in-package "HI")
2    
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))    #-unicode
5      (%primitive byte-blt src start dest dstart end)
6      #+unicode
7      (loop for di of-type fixnum from dstart below end
8            for si of-type fixnum from start
9            do
10            (setf (aref dest di) (aref src si))))
11    
12  (defun lisp::sap-to-fixnum (x) (sap-int x))  (defun lisp::sap-to-fixnum (x) (sap-int x))
13  (defun lisp::fixnum-to-sap (x) (int-sap x))  (defun lisp::fixnum-to-sap (x) (int-sap x))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5