Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[cl-backend] hide annoying messages from quicklisp

  • Loading branch information...
commit 4aa53ab57c562344dc69a49234d8af26a1fe0de2 1 parent 1b8146a
@pmurias pmurias authored
Showing with 9 additions and 3 deletions.
  1. +5 −2 cl-backend/backend.lisp
  2. +4 −1 cl-backend/niecza-stash.lisp
View
7 cl-backend/backend.lisp
@@ -1,8 +1,11 @@
(load (merge-pathnames "quicklisp/setup.lisp"
(user-homedir-pathname)))
-(ql:quickload "cl-json")
-(ql:quickload "fare-matcher")
+; hide annoying messages
+(let ((*standard-output* (make-broadcast-stream)))
+ (ql:quickload "cl-json")
+ (ql:quickload "fare-matcher")
+)
(defpackage niecza (:use common-lisp))
(in-package :niecza)
View
5 cl-backend/niecza-stash.lisp
@@ -1,7 +1,10 @@
(defpackage niecza-stash (:export wrap-in-let to-stash-name) (:use :common-lisp))
(in-package :niecza-stash)
-(ql:quickload "fare-matcher")
+; hide annoying messages
+(let ((*standard-output* (make-broadcast-stream)))
+ (ql:quickload "fare-matcher")
+)
(defun to-stash-name (name) (intern (format nil "~{~A~^-~}" name)))
Please sign in to comment.
Something went wrong with that request. Please try again.