diff options
| author | dos-reis <gdr@axiomatics.org> | 2014-08-16 20:53:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2014-08-16 20:53:01 +0000 |
| commit | ef207db542d63e4b04db5cac88bed6f6cfcc514b (patch) | |
| tree | 159e60bc674fcedfc567d11f2031665698df86a0 /src/lisp | |
| parent | d5f760638a920d3e3fb70ef3e571645a5f3a8344 (diff) | |
| download | open-axiom-ef207db542d63e4b04db5cac88bed6f6cfcc514b.tar.gz | |
Avoid SBCL deprecated features.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 4 |
1 files changed, 2 insertions, 2 deletions
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) |