/[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.3 by dtc, Tue Mar 10 18:28:43 1998 UTC revision 1.4 by pmai, Thu Dec 6 19:15:40 2001 UTC
# Line 15  Line 15 
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 by Paul Werkowski.  ;;; Hacked into (Free)bsd-os.lisp by Paul Werkowski.
18    ;;; Generalized a bit for OpenBSD by Pierre R. Mai.
19    
20  (in-package "SYSTEM")  (in-package "SYSTEM")
21  (use-package "EXTENSIONS")  (use-package "EXTENSIONS")
22  (export '(get-system-info get-page-size os-init))  (export '(get-system-info get-page-size os-init))
23    
24  (pushnew :bsd *features*)  (pushnew :bsd *features*)
 (pushnew :freebsd *features*)  
25    
26  (setq *software-type* #+FreeBSD "FreeBSD" #-FreeBSD "BSD")  (setq *software-type* #+OpenBSD "OpenBSD"
27                          #+FreeBSD "FreeBSD"
28                          #-(or FreeBSD OpenBSD) "BSD")
29    
30  (defvar *software-version* nil "Version string for supporting software")  (defvar *software-version* nil "Version string for supporting software")
31    

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

  ViewVC Help
Powered by ViewVC 1.1.5