From d98b6223c0b5c67d0ca6a6577c578d5e35438918 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 2 Feb 2008 19:24:57 +0100
Subject: Fix an undefined variable warning.

darcs-hash:424aafab701bb0e18f6af709d15c7ef2250303cc
---
 Lisp/init.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Lisp')

diff --git a/Lisp/init.lisp b/Lisp/init.lisp
index ff9b1c6..91f24e9 100644
--- a/Lisp/init.lisp
+++ b/Lisp/init.lisp
@@ -31,7 +31,7 @@
     (defconstant +no+ (objcl-get-no)))
   (unless (boundp '+runtime-type+)
     (defconstant +runtime-type+ (runtime-type)))
-  (pushnew (case +runtime-type+
+  (pushnew (case (runtime-type)
              ((:gnu) 'objcl-features:gnu-runtime)
              ((:next) 'objcl-features:next-runtime))
            *features*))
-- 
cgit v1.2.3