[11269] | 1 | ;;; describe-compiler-policy.lisp |
---|
| 2 | ;;; |
---|
| 3 | ;;; Copyright (C) 2008 Peter Graves <peter@armedbear.org> |
---|
| 4 | ;;; |
---|
| 5 | ;;; This program is free software; you can redistribute it and/or |
---|
| 6 | ;;; modify it under the terms of the GNU General Public License |
---|
| 7 | ;;; as published by the Free Software Foundation; either version 2 |
---|
| 8 | ;;; of the License, or (at your option) any later version. |
---|
| 9 | ;;; |
---|
| 10 | ;;; This program is distributed in the hope that it will be useful, |
---|
| 11 | ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
---|
| 12 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
---|
| 13 | ;;; GNU General Public License for more details. |
---|
| 14 | ;;; |
---|
| 15 | ;;; You should have received a copy of the GNU General Public License |
---|
| 16 | ;;; along with this program; if not, write to the Free Software |
---|
| 17 | ;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. |
---|
[11391] | 18 | ;;; |
---|
| 19 | ;;; As a special exception, the copyright holders of this library give you |
---|
| 20 | ;;; permission to link this library with independent modules to produce an |
---|
| 21 | ;;; executable, regardless of the license terms of these independent |
---|
| 22 | ;;; modules, and to copy and distribute the resulting executable under |
---|
| 23 | ;;; terms of your choice, provided that you also meet, for each linked |
---|
| 24 | ;;; independent module, the terms and conditions of the license of that |
---|
| 25 | ;;; module. An independent module is a module which is not derived from |
---|
| 26 | ;;; or based on this library. If you modify this library, you may extend |
---|
| 27 | ;;; this exception to your version of the library, but you are not |
---|
| 28 | ;;; obligated to do so. If you do not wish to do so, delete this |
---|
| 29 | ;;; exception statement from your version. |
---|
[11269] | 30 | |
---|
| 31 | (in-package "SYSTEM") |
---|
| 32 | |
---|
[14121] | 33 | (export 'describe-compiler-policy) |
---|
| 34 | |
---|
[11269] | 35 | (defun describe-compiler-policy () |
---|
| 36 | (format t "~&; Compiler policy: safety ~D, space ~D, speed ~D, debug ~D~%" |
---|
| 37 | *safety* *space* *speed* *debug*) |
---|
| 38 | (values)) |
---|