Skip to content
Snippets Groups Projects
Commit 5db5e4c9 authored by wlott's avatar wlott
Browse files

Changed pointer< and pointer> to sap< and sap>.

parent ea24ca58
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sap.lisp,v 1.4 1992/01/29 06:34:19 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sap.lisp,v 1.5 1992/02/13 15:56:31 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -55,7 +55,7 @@
(defun sap> (x y)
"Return T iff the SAP X points to a larger address then the SAP Y."
(declare (type system-area-pointer x y))
(pointer> x y))
(sap> x y))
(defun sap+ (sap offset)
"Return a new sap OFFSET bytes from SAP."
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.8 1992/02/13 02:24:50 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.9 1992/02/13 15:57:08 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -735,7 +735,7 @@
(+ (sap-int sap) 1-page-size))
(logxor 1-page-size (ldb (byte 32 0) -1))))
(sap+ sap page-size)))
((not (pointer< sap end)))
((sap>= sap end))
(declare (type system-area-pointer sap))
(setf (sap-ref-8 sap 0) (sap-ref-8 sap 0)))))
(int-syscall ("read" int (* char) int) fd buf len))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment