Setting up quicklisp in clisp, for exercism

dna-min-test-results.txt

CL-USER> (load "point-mutations-test.lisp")
;; Loading file point-mutations-test.lisp ...
To load "lisp-unit":
  Load 1 ASDF system:
    lisp-unit
; Loading "lisp-unit"

;;  Loading file /Users/wclifford/exercism/lisp/point-mutations/dna.lisp ...
;;  Loaded file /Users/wclifford/exercism/lisp/point-mutations/dna.lisp
INVALID-TO-GET-DISTANCE-FOR-DIFFERENT-LENGTH-STRINGS: 3 assertions passed, 0 failed.

 | Failed Form: (DNA:HAMMING-DISTANCE "ACCAGGG" "ACTATGG")
 | Expected 2 but saw NIL
 |
LARGER-DISTANCE: 0 assertions passed, 1 failed.

 | Failed Form: (DNA:HAMMING-DISTANCE "GGACG" "GGTCG")
 | Expected 1 but saw NIL
 |
SMALL-HAMMING-DISTANCE-IN-MIDDLE-SOMEWHERE: 0 assertions passed, 1 failed.

 | Failed Form: (DNA:HAMMING-DISTANCE "ACT" "GGA")
 | Expected 3 but saw NIL
 |
COMPLETE-HAMMING-DISTANCE-IN-SMALL-STRAND: 0 assertions passed, 1 failed.

 | Failed Form: (DNA:HAMMING-DISTANCE "GGACTGA" "GGACTGA")
 | Expected 0 but saw NIL
 |
NO-DIFFERENCE-BETWEEN-IDENTICAL-STRANDS: 0 assertions passed, 1 failed.

 | Failed Form: (DNA:HAMMING-DISTANCE "" "")
 | Expected 0 but saw NIL
 |
NO-DIFFERENCE-BETWEEN-EMPTY-STRANDS: 0 assertions passed, 1 failed.

Unit Test Summary
 | 8 assertions total
 | 3 passed
 | 5 failed
 | 0 execution errors
 | 0 missing tests

;; Loaded file point-mutations-test.lisp
T

dna-start.lisp

(cl:in-package #:cl-user)
(cl:defpackage #:dna
  (:use #:cl)
  (:export #:hamming-distance))
(cl:in-package #:dna)

(defun hamming-distance (s1 s2))

;;; End of minimum file to run point-mutations-test.lisp without errors

quicklisp-in-clisp.txt

~% curl -O http://beta.quicklisp.org/quicklisp.lisp
  % Total    % Received % Xferd  Average Speed   Time    Time     Time  Current
                                 Dload  Upload   Total   Spent    Left  Speed
100 56097  100 56097    0     0  74897      0 --:--:-- --:--:-- --:--:-- 74895
~% clisp
  i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load "quicklisp.lisp")
;; Loading file quicklisp.lisp ...

  ==== quicklisp quickstart 2014-02-01 loaded ====

    To continue with installation, evaluate: (quicklisp-quickstart:install)

    For installation options, evaluate: (quicklisp-quickstart:help)

;; Loaded file quicklisp.lisp
T
[2]> (quicklisp-quickstart:install)
; Fetching #<URL "http://beta.quicklisp.org/client/quicklisp.sexp">
; 0.82KB
==================================================
838 bytes in 0.03 seconds (31.60KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/client/2014-07-04/quicklisp.tar">
; 220.00KB
==================================================
225,280 bytes in 0.36 seconds (605.90KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/client/2014-01-28/setup.lisp">
; 4.96KB
==================================================
5,078 bytes in 0.01 seconds (422.94KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/asdf/2.26/asdf.lisp">
; 194.07KB
==================================================
198,729 bytes in 0.37 seconds (530.88KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/dist/quicklisp.txt">
; 0.40KB
==================================================
408 bytes in 0.01 seconds (28.81KB/sec)
Installing dist "quicklisp" version "2014-11-06".
; Fetching #<URL "http://beta.quicklisp.org/dist/quicklisp/2014-11-06/releases.txt">
; 267.35KB
==================================================
273,770 bytes in 0.44 seconds (607.30KB/sec)
; Fetching #<URL "http://beta.quicklisp.org/dist/quicklisp/2014-11-06/systems.txt">
; 186.29KB
==================================================
190,765 bytes in 0.33 seconds (568.82KB/sec)

  ==== quicklisp installed ====

    To load a system, use: (ql:quickload "system-name")

    To find systems, use: (ql:system-apropos "term")

    To load Quicklisp every time you start Lisp, use: (ql:add-to-init-file)

    For more information, see http://www.quicklisp.org/beta/

NIL
[3]> (ql:add-to-init-file)
I will append the following lines to #P"/Users/wclifford/.clisprc.lisp":

  ;;; The following lines added by ql:add-to-init-file:
  #-quicklisp
  (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
    (when (probe-file quicklisp-init)
      (load quicklisp-init)))

Press Enter to continue.

#P"/Users/wclifford/.clisprc.lisp"
[4]> (ql:quickload "lisp-unit")
To load "lisp-unit":
  Install 1 Quicklisp release:
    lisp-unit
; Fetching #<URL "http://beta.quicklisp.org/archive/lisp-unit/2014-01-13/lisp-unit-20140113-git.tgz">
; 17.23KB
==================================================
17,646 bytes in 0.05 seconds (323.99KB/sec)
; Loading "lisp-unit"
[package lisp-unit]..
("lisp-unit")
[5]> (exit)
Bye.