/[cmucl]/src/code/bsd-os.lisp
ViewVC logotype

Diff of /src/code/bsd-os.lisp

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

revision 1.5 by pmai, Mon Jan 28 20:17:08 2002 UTC revision 1.6 by toy, Mon Nov 18 13:52:24 2002 UTC
# Line 71  Line 71 
71  ;;;    Return the system page size.  ;;;    Return the system page size.
72  ;;;  ;;;
73  (defun get-page-size ()  (defun get-page-size ()
74    ;; probably should call getpagesize()    (multiple-value-bind (val err)
75    4096)        (unix:unix-getpagesize)
76        (unless val
77          (error "Getpagesize failed: ~A" (unix:get-unix-error-msg err)))
78        val))
79    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5