Common Lisp: Load libraries silently

diff --git a/common-lisp/step0_repl.asd b/common-lisp/step0_repl.asd
index 3acb265..aee96e8 100644 (file)
--- a/common-lisp/step0_repl.asd
+++ b/common-lisp/step0_repl.asd
@@ -4,8 +4,8 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :cl-readline)
-(ql:quickload :uiop)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/step1_read_print.asd b/common-lisp/step1_read_print.asd
index 33c6d44..993b77d 100644 (file)
--- a/common-lisp/step1_read_print.asd
+++ b/common-lisp/step1_read_print.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/step2_eval.asd b/common-lisp/step2_eval.asd
index 61814a7..2b0b3c5 100644 (file)
--- a/common-lisp/step2_eval.asd
+++ b/common-lisp/step2_eval.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/step3_env.asd b/common-lisp/step3_env.asd
index a0bbc36..3dc014a 100644 (file)
--- a/common-lisp/step3_env.asd
+++ b/common-lisp/step3_env.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/step4_if_fn_do.asd b/common-lisp/step4_if_fn_do.asd
index 3a01d64..efddd5e 100644 (file)
--- a/common-lisp/step4_if_fn_do.asd
+++ b/common-lisp/step4_if_fn_do.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/step5_tco.asd b/common-lisp/step5_tco.asd
index 09df9dc..bdc4209 100644 (file)
--- a/common-lisp/step5_tco.asd
+++ b/common-lisp/step5_tco.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/step6_file.asd b/common-lisp/step6_file.asd
index 60babad..35bc77f 100644 (file)
--- a/common-lisp/step6_file.asd
+++ b/common-lisp/step6_file.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/step7_quote.asd b/common-lisp/step7_quote.asd
index 1d0406e..efa0269 100644 (file)
--- a/common-lisp/step7_quote.asd
+++ b/common-lisp/step7_quote.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/step8_macros.asd b/common-lisp/step8_macros.asd
index cd262a3..64d2f97 100644 (file)
--- a/common-lisp/step8_macros.asd
+++ b/common-lisp/step8_macros.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/step9_try.asd b/common-lisp/step9_try.asd
index a6aa5e9..84e0ef0 100644 (file)
--- a/common-lisp/step9_try.asd
+++ b/common-lisp/step9_try.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))

diff --git a/common-lisp/stepA_mal.asd b/common-lisp/stepA_mal.asd
index cc143ec..63efad1 100644 (file)
--- a/common-lisp/stepA_mal.asd
+++ b/common-lisp/stepA_mal.asd
@@ -4,10 +4,10 @@
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
 
-(ql:quickload :uiop)
-(ql:quickload :cl-readline)
-(ql:quickload :cl-ppcre)
-(ql:quickload :genhash)
+(ql:quickload :uiop :silent t :verbose nil)
+(ql:quickload :cl-readline :silent t)
+(ql:quickload :cl-ppcre :silent t)
+(ql:quickload :genhash :silent t)
 
 (defpackage #:mal-asd
   (:use :cl :asdf))