Commit c1d37660 authored by Daniel Kochmański's avatar Daniel Kochmański

asd: make warnings more asdf friendly

Don't print warnings at the compilation-time.
parent 07e49542
......@@ -38,6 +38,7 @@ daniel@turtleware.eu.
| 01-JAN-93 | mk | 2.0 | Support for MCL 2.0, CMU CL 16d, Allegro V3.1/4.0/4.1, Lucid 4.0, ibcl |
| 25-JAN-94 | mk | 2.1 | Patches for CLISP from Bruno Haible. |
| 26-FEB-16 | dk | 3.0 | General clean-up - removal of the obsolete implementations support and constructs, testing on the active implementations etc. |
| 26-FEB-16 | dk | 3.1 | Make warnings more ASDF-friendly |
** To Do
......
......@@ -32,13 +32,13 @@
;;; Warn user if they're loading the source instead of compiling it first.
(eval-when (eval)
(warn "This file should be compiled before loading for best results."))
(warn "This file should be compiled before loading for best results."))
;;; ********************************
;;; Version ************************
;;; ********************************
(defparameter *metering-version* "v3.0 2016-03-26"
(defparameter *metering-version* "v3.1 2016-03-26"
"Current version number/date for Metering.")
......@@ -54,7 +54,7 @@
(eval-when (compile load eval)
(unless (fboundp 'fdefinition)
(eval-when (compile eval)
(eval-when (load eval)
(warn "This is not ANSI conforming Common Lisp. Expect problems."))
(defun fdefinition (symbol)
......@@ -127,13 +127,10 @@
:one-liner t))))
#-(or cmu clisp clozure ecl)
(progn
(eval-when (compile eval)
(warn "No consing will be reported unless a get-cons function is ~
defined."))
(eval-when (load eval)
(defmacro get-cons () '(the consing-type 0))))
(eval-when (load eval)
(warn "No consing will be reported unless a get-cons function is ~
defined.")
(defmacro get-cons () '(the consing-type 0)))
;;; ********************************
;;; Required Arguments *************
......@@ -206,14 +203,13 @@
(T (values 0 t)))))
#-(or cmu clisp clozure allegro)
(progn
(eval-when (compile eval)
(warn
"You may want to add an implementation-specific Required-Arguments function."))
(eval-when (load eval)
(defun required-arguments (name)
(declare (ignore name))
(values 0 t))))
(eval-when (load eval)
(warn
"You may want to add an implementation-specific Required-Arguments ~
function.")
(defun required-arguments (name)
(declare (ignore name))
(values 0 t)))
#|
;;;Examples
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment