Commit 66e9c6f1 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Don't define, use or export style-warn anymore

Use warn instead. Those who want style-warn can use a recent UIOP.

Issue: making fare-utils' fine semantics dependent on which underlying version
of UIOP is available causes issues such as in
http://report.quicklisp.org/2017-01-12/failure-report/lisp-interface-library.html
parent 3e356b9c
......@@ -72,9 +72,9 @@
(*print-level* nil)
(*print-length* nil))
(when xnd
(style-warn "Current defpackage for ~A doesn't include declared exports~% ~S" (package-name p) xnd))
(warn "Current defpackage for ~A doesn't include declared exports~% ~S" (package-name p) xnd))
(when dnx
(style-warn "Current defpackage for ~A includes undeclared exports~% ~S" (package-name p) dnx)))
(warn "Current defpackage for ~A includes undeclared exports~% ~S" (package-name p) dnx)))
`(defpackage
,(s name)
,@(w* :nicknames nicknames)
......
......@@ -32,21 +32,11 @@
(defmacro declare-type (&rest specs) (declare (ignore specs)))
(defmacro the* (type form) (declare (ignore type)) form))
; -----------------------------------------------------------------------------
;;; Warnings
(eval-now
(unless (fboundp 'style-warn)
(defun style-warn (string &rest args)
#-sbcl
(apply #'warn string args)
#+sbcl
(apply #'sb-int:style-warn string args))))
; -----------------------------------------------------------------------------
;;; Helper functions for package management
(eval-now
(defparameter *package-misdefinition-warning-hook* #'style-warn)
(defparameter *package-misdefinition-warning-hook* #'warn)
(defun package-exported-symbols-symbol (p)
(find-symbol "%%EXPORTED-SYMBOLS" p))
......@@ -130,7 +120,6 @@
(ensure-symbols-exported
eval-now
declaim-type declare-type the*
style-warn
*package-misdefinition-warning-hook*
ensure-symbols-exported* ensure-symbols-exported ensure-symbol-exported
exporting-definitions define-exporter)
......
......@@ -77,7 +77,7 @@
#:set-container-contents-from-list! #:simplify-string
#:single-arg #:single-arg-form-p #:sized-container-mixin
#:string-all-base-char-p #:string-basic-p ;; #:strcat
#:->string #:style-warn #:test-form #:test-forms
#:->string #:test-form #:test-forms
#:test-only #:the* #:ttest #:ttest* #:unfeaturify
#:vector->list #:vector-container-mixin
#:vector-container-ref #:with-buffered-file-contents
......
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