/[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.1 by ram, Sat Jan 18 14:30:43 1997 UTC revision 1.2 by pw, Tue Mar 3 12:20:32 1998 UTC
# Line 9  Line 9 
9  ;;;  ;;;
10  ;;; **********************************************************************  ;;; **********************************************************************
11  ;;;  ;;;
12  ;;; OS interface functions for CMU CL under Mach.  ;;; OS interface functions for CMU CL under BSD Unix.
13  ;;;  ;;;
14  ;;; Written and maintained mostly by Skef Wholey and Rob MacLachlan.  ;;; Written and maintained mostly by Skef Wholey and Rob MacLachlan.
15  ;;; Scott Fahlman, Dan Aronson, and Steve Handerson did stuff here, too.  ;;; Scott Fahlman, Dan Aronson, and Steve Handerson did stuff here, too.
16  ;;;  ;;;
17  ;;; Hacked into (Free)bsd-os.lisp /Werkowski  ;;; Hacked into (Free)bsd-os.lisp by Paul Werkowski.
18    
19  (in-package "SYSTEM")  (in-package "SYSTEM")
20  (use-package "EXTENSIONS")  (use-package "EXTENSIONS")
# Line 23  Line 23 
23  (pushnew :bsd *features*)  (pushnew :bsd *features*)
24  (pushnew :freebsd *features*)  (pushnew :freebsd *features*)
25    
26  (setq *software-type* "FreeBSD/4.4Lite")  (setq *software-type* #+FreeBSD "FreeBSD" #-FreeBSD "BSD")
27    
28  (defun software-version ()  (defun software-version ()
29    "Returns a string describing version of the supporting software."    "Returns a string describing version of the supporting software."
30    (string-trim '(#\newline)    (string-trim '(#\newline)
31                 (with-output-to-string (stream)                 (with-output-to-string (stream)
32                   (run-program "/usr/bin/uname" '("-sr") :output stream))))                   (run-program "/usr/bin/uname" '("-r") :output stream))))
33    
34    
35  ;;; OS-Init initializes our operating-system interface.  It sets the values  ;;; OS-Init initializes our operating-system interface.  It sets the values
# Line 63  Line 63 
63  (defun get-page-size ()  (defun get-page-size ()
64    ;; probably should call getpagesize()    ;; probably should call getpagesize()
65    4096)    4096)
   

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

  ViewVC Help
Powered by ViewVC 1.1.5