- (string-trim '(#\newline)
- (with-output-to-string (stream)
- (sb!ext:run-program "/bin/uname" `("-r")
- :output stream))))))
-
-(defun os-cold-init-or-reinit () ; KLUDGE: don't know what to do here
- #!+sparc ;; Can't use #x20000000 thru #xDFFFFFFF, but mach tries to let us.
- (sb!sys:allocate-system-memory-at (sb!sys:int-sap #x20000000) #xc0000000)
- (setf *software-version* nil)
- (setf *default-pathname-defaults*
- (pathname (sb!unix:posix-getcwd/))))
+ (string-trim '(#\newline)
+ (with-output-to-string (stream)
+ (sb!ext:run-program "/bin/uname" `("-r")
+ :output stream))))))