[STUMP] [PATCH] modified: wrappers.lisp @250

[Egon Hyszczak]

---
 wrappers.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/wrappers.lisp b/wrappers.lisp
index 7bae9fe..d4c9db9 100644
--- a/wrappers.lisp
+++ b/wrappers.lisp
@@ -247,7 +247,7 @@ they should be windows. So use this function to make a 
window out of them."
 
 #+ (and clisp (not (or linux freebsd)))
 (eval-when (eval load compile)
-  (let ((osname (os:uname-sysname (os:uname))))
+  (let ((osname (posix:uname-sysname (posix:uname))))
     (cond
       ((string= osname "Linux") (pushnew :linux *features*))
       ((string= osname "FreeBSD") (pushnew :freebsd *features*))
-- 
1.6.2