From ef207db542d63e4b04db5cac88bed6f6cfcc514b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 16 Aug 2014 20:53:01 +0000
Subject: Avoid SBCL deprecated features.

---
 src/lisp/core.lisp.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/lisp')

diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 921fe077..81fd0f2f 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -3,7 +3,7 @@
 ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 ;; All rights reserved.
 ;; 
-;; Copyright (C) 2007-2013, Gabriel Dos Reis.
+;; Copyright (C) 2007-2014, Gabriel Dos Reis.
 ;; All rights reserved.
 ;;
 ;; Redistribution and use in source and binary forms, with or without
@@ -919,7 +919,7 @@
 ;; return to the calling shell.  When no exit status code is specified,
 ;; it would return $0$, meaning that everything is OK.
 (defun |coreQuit| (&optional (status 0))
-  #+:sbcl (sb-ext:quit :unix-status status)
+  #+:sbcl (sb-ext:exit :code status)
   #+:clisp (ext:quit status)
   #+:gcl (si::bye status)
   #+:ecl (ext:quit status)
-- 
cgit v1.2.3