1
1
mirror of https://github.com/adambard/learnxinyminutes-docs.git synced 2024-12-30 18:55:05 +03:00
learnxinyminutes-docs/common-lisp.html.markdown

692 lines
20 KiB
Common Lisp
Raw Normal View History

2013-08-11 12:49:33 +04:00
---
2013-08-13 21:14:57 +04:00
language: "Common Lisp"
2013-08-11 12:49:33 +04:00
filename: commonlisp.lisp
contributors:
- ["Paul Nathan", "https://github.com/pnathan"]
- ["Rommel Martinez", "https://ebzzry.io"]
2013-08-11 12:49:33 +04:00
---
Common Lisp is a general-purpose, multi-paradigm programming language suited for a wide variety of
industry applications. It is frequently referred to as a programmable programming language.
2013-08-11 12:49:33 +04:00
The classic starting point is [Practical Common Lisp](http://www.gigamonkeys.com/book/). Another
popular and recent book is [Land of Lisp](http://landoflisp.com/). A new book about best practices,
[Common Lisp Recipes](http://weitz.de/cl-recipes/), was recently published.
2013-08-11 12:49:33 +04:00
```lisp
2013-08-11 12:49:33 +04:00
;;;-----------------------------------------------------------------------------
2013-08-11 12:49:33 +04:00
;;; 0. Syntax
;;;-----------------------------------------------------------------------------
2013-08-11 12:49:33 +04:00
;;; General form
2013-08-11 12:49:33 +04:00
;;; CL has two fundamental pieces of syntax: ATOM and S-EXPRESSION.
;;; Typically, grouped S-expressions are called `forms`.
2013-08-11 12:49:33 +04:00
10 ; an atom; it evaluates to itself
:thing ; another atom; evaluating to the symbol :thing
t ; another atom, denoting true
(+ 1 2 3 4) ; an s-expression
'(4 :foo t) ; another s-expression
2013-08-11 12:49:33 +04:00
;;; Comments
2013-08-11 12:49:33 +04:00
;;; Single-line comments start with a semicolon; use four for file-level
;;; comments, three for section descriptions, two inside definitions, and one
;;; for single lines. For example,
2013-08-11 12:49:33 +04:00
;;;; life.lisp
2013-08-11 12:49:33 +04:00
;;; Foo bar baz, because quu quux. Optimized for maximum krakaboom and umph.
;;; Needed by the function LINULUKO.
2013-08-11 12:49:33 +04:00
(defun meaning (life)
"Return the computed meaning of LIFE"
(let ((meh "abc"))
;; Invoke krakaboom
(loop :for x :across meh
:collect x))) ; store values into x, then return it
2013-08-11 12:49:33 +04:00
;;; Block comments, on the other hand, allow for free-form comments. They are
;;; delimited with #| and |#
2013-08-11 12:49:33 +04:00
#| This is a block comment which
can span multiple lines and
2013-08-11 12:49:33 +04:00
#|
they can be nested!
|#
|#
;;; Environment
2013-08-11 12:49:33 +04:00
;;; A variety of implementations exist; most are standards-conformant. SBCL
;;; is a good starting point. Third party libraries can be easily installed with
;;; Quicklisp
2013-08-11 12:49:33 +04:00
;;; CL is usually developed with a text editor and a Real Eval Print
;;; Loop (REPL) running at the same time. The REPL allows for interactive
;;; exploration of the program while it is running "live".
2013-08-11 12:49:33 +04:00
;;;-----------------------------------------------------------------------------
;;; 1. Primitive datatypes and operators
;;;-----------------------------------------------------------------------------
2013-08-11 12:49:33 +04:00
;;; Symbols
2013-08-11 21:39:13 +04:00
'foo ; => FOO Notice that the symbol is upper-cased automatically.
;;; INTERN manually creates a symbol from a string.
2013-08-11 12:49:33 +04:00
(intern "AAAA") ; => AAAA
(intern "aaa") ; => |aaa|
2013-08-11 21:39:13 +04:00
2013-08-11 12:49:33 +04:00
;;; Numbers
2013-08-11 12:49:33 +04:00
9999999999999999999999 ; integers
#b111 ; binary => 7
#o111 ; octal => 73
#x111 ; hexadecimal => 273
2013-08-11 21:39:13 +04:00
3.14159s0 ; single
3.14159d0 ; double
2013-08-11 12:49:33 +04:00
1/2 ; ratios
#C(1 2) ; complex numbers
;;; Function application are written as (f x y z ...) where f is a function and
;;; x, y, z, ... are the arguments.
(+ 1 2) ; => 3
;;; If you want to create literal data, use QUOTE to prevent it from being
;;; evaluated
(quote (+ 1 2)) ; => (+ 1 2)
(quote a) ; => A
;;; The shorthand for QUOTE is '
'(+ 1 2) ; => (+ 1 2)
'a ; => A
;;; Basic arithmetic operations
(+ 1 1) ; => 2
(- 8 1) ; => 7
(* 10 2) ; => 20
(expt 2 3) ; => 8
(mod 5 2) ; => 1
(/ 35 5) ; => 7
(/ 1 3) ; => 1/3
(+ #C(1 2) #C(6 -4)) ; => #C(7 -2)
;;; Booleans
t ; true; any non-NIL value is true
nil ; false; also, the empty list: ()
(not nil) ; => T
(and 0 t) ; => T
(or 0 nil) ; => 0
;;; Characters
#\A ; => #\A
#\λ ; => #\GREEK_SMALL_LETTER_LAMDA
#\u03BB ; => #\GREEK_SMALL_LETTER_LAMDA
;;; Strings are fixed-length arrays of characters
2013-08-11 12:49:33 +04:00
"Hello, world!"
"Benjamin \"Bugsy\" Siegel" ; backslash is an escaping character
;;; Strings can be concatenated
(concatenate 'string "Hello, " "world!") ; => "Hello, world!"
;;; A string can be treated like a sequence of characters
2013-08-11 12:49:33 +04:00
(elt "Apple" 0) ; => #\A
;;; FORMAT is used to create formatted output, which ranges from simple string
;;; interpolation to loops and conditionals. The first argument to FORMAT
;;; determines where will the formatted string go. If it is NIL, FORMAT
;;; simply returns the formatted string as a value; if it is T, FORMAT outputs
;;; to the standard output, usually the screen, then it returns NIL.
(format nil "~A, ~A!" "Hello" "world") ; => "Hello, world!"
(format t "~A, ~A!" "Hello" "world") ; => NIL
2013-08-11 12:49:33 +04:00
;;;-----------------------------------------------------------------------------
;;; 2. Variables
;;;-----------------------------------------------------------------------------
2013-08-11 12:49:33 +04:00
;;; You can create a global (dynamically scoped) variable using DEFVAR and
;;; DEFPARAMETER. The variable name can use any character except: ()",'`;#|\
2013-08-11 21:39:13 +04:00
;;; The difference between DEFVAR and DEFPARAMETER is that re-evaluating a
;;; DEFVAR expression doesn't change the value of the variable. DEFPARAMETER,
;;; on the other hand, does.
;;; By convention, dynamically scoped variables have earmuffs in their name.
2013-08-11 21:39:13 +04:00
2013-08-11 12:49:33 +04:00
(defparameter *some-var* 5)
*some-var* ; => 5
;;; You can also use unicode characters.
2013-08-11 21:39:13 +04:00
(defparameter *AΛB* nil)
2013-08-11 12:49:33 +04:00
;;; Accessing a previously unbound variable results in an UNBOUND-VARIABLE
;;; error, however it is defined behavior. Don't do it.
;;; You can create local bindings with LET. In the following snippet, `me` is
;;; bound to "dance with you" only within the (let ...). LET always returns
;;; the value of the last `form` in the LET form.
2013-08-11 12:49:33 +04:00
(let ((me "dance with you")) me) ; => "dance with you"
2013-08-11 21:39:13 +04:00
2013-08-11 12:49:33 +04:00
;;;-----------------------------------------------------------------------------;
;;; 3. Structs and collections
;;;-----------------------------------------------------------------------------;
2013-08-11 12:49:33 +04:00
;;; Structs
2013-08-11 12:49:33 +04:00
(defstruct dog name breed age)
(defparameter *rover*
(make-dog :name "rover"
:breed "collie"
:age 5))
*rover* ; => #S(DOG :NAME "rover" :BREED "collie" :AGE 5)
(dog-p *rover*) ; => T
2013-08-11 12:49:33 +04:00
(dog-name *rover*) ; => "rover"
;;; DOG-P, MAKE-DOG, and DOG-NAME are all automatically created by DEFSTRUCT
2013-08-11 21:39:13 +04:00
2013-08-11 12:49:33 +04:00
;;; Pairs
;;; CONS constructs pairs. CAR and CDR return the head and tail of a CONS-pair.
(cons 'SUBJECT 'VERB) ; => '(SUBJECT . VERB)
(car (cons 'SUBJECT 'VERB)) ; => SUBJECT
(cdr (cons 'SUBJECT 'VERB)) ; => VERB
2013-08-11 12:49:33 +04:00
;;; Lists
;;; Lists are linked-list data structures, made of CONS pairs and end with a
;;; NIL (or '()) to mark the end of the list
(cons 1 (cons 2 (cons 3 nil))) ; => '(1 2 3)
;;; LIST is a convenience variadic constructor for lists
(list 1 2 3) ; => '(1 2 3)
2013-08-11 12:49:33 +04:00
;;; When the first argument to CONS is an atom and the second argument is a
;;; list, CONS returns a new CONS-pair with the first argument as the first
;;; item and the second argument as the rest of the CONS-pair
2013-08-11 12:49:33 +04:00
(cons 4 '(1 2 3)) ; => '(4 1 2 3)
2013-08-11 12:49:33 +04:00
;;; Use APPEND to join lists
2013-08-11 21:39:13 +04:00
(append '(1 2) '(3 4)) ; => '(1 2 3 4)
;;; Or CONCATENATE
(concatenate 'list '(1 2) '(3 4)) ; => '(1 2 3 4)
;;; Lists are a very central type, so there is a wide variety of functionality for
;;; them, a few examples:
2013-08-11 21:39:13 +04:00
(mapcar #'1+ '(1 2 3)) ; => '(2 3 4)
(mapcar #'+ '(1 2 3) '(10 20 30)) ; => '(11 22 33)
(remove-if-not #'evenp '(1 2 3 4)) ; => '(2 4)
(every #'evenp '(1 2 3 4)) ; => NIL
2013-08-11 21:39:13 +04:00
(some #'oddp '(1 2 3 4)) ; => T
(butlast '(subject verb object)) ; => (SUBJECT VERB)
2013-08-11 12:49:33 +04:00
;;; Vectors
;;; Vector's literals are fixed-length arrays
2013-08-11 12:49:33 +04:00
#(1 2 3) ; => #(1 2 3)
2013-08-11 12:49:33 +04:00
;;; Use CONCATENATE to add vectors together
2013-08-11 12:49:33 +04:00
(concatenate 'vector #(1 2 3) #(4 5 6)) ; => #(1 2 3 4 5 6)
2013-08-11 12:49:33 +04:00
;;; Arrays
2013-08-11 21:39:13 +04:00
;;; Both vectors and strings are special-cases of arrays.
2013-08-11 12:49:33 +04:00
;;; 2D arrays
2013-08-11 12:49:33 +04:00
(make-array (list 2 2)) ; => #2A((0 0) (0 0))
(make-array '(2 2)) ; => #2A((0 0) (0 0))
(make-array (list 2 2 2)) ; => #3A(((0 0) (0 0)) ((0 0) (0 0)))
2013-08-11 12:49:33 +04:00
;;; Caution: the default initial values of MAKE-ARRAY are implementation-defined.
;;; To explicitly specify them:
2013-08-11 12:49:33 +04:00
(make-array '(2) :initial-element 'unset) ; => #(UNSET UNSET)
2013-08-11 21:39:13 +04:00
;;; To access the element at 1, 1, 1:
2013-08-11 21:39:13 +04:00
(aref (make-array (list 2 2 2)) 1 1 1) ; => 0
;;; This value is implementation-defined:
;;; NIL on ECL, 0 on SBCL and CCL.
2013-08-11 12:49:33 +04:00
2013-08-20 19:58:33 +04:00
;;; Adjustable vectors
;;; Adjustable vectors have the same printed representation as
;;; fixed-length vector's literals.
2013-08-20 19:58:33 +04:00
(defparameter *adjvec* (make-array '(3) :initial-contents '(1 2 3)
:adjustable t :fill-pointer t))
2013-08-20 19:58:33 +04:00
*adjvec* ; => #(1 2 3)
;;; Adding new elements
2013-08-20 19:58:33 +04:00
(vector-push-extend 4 *adjvec*) ; => 3
*adjvec* ; => #(1 2 3 4)
2013-08-20 19:58:33 +04:00
;;; Sets, naively, are just lists:
2013-08-11 12:49:33 +04:00
(set-difference '(1 2 3 4) '(4 5 6 7)) ; => (3 2 1)
(intersection '(1 2 3 4) '(4 5 6 7)) ; => 4
(union '(1 2 3 4) '(4 5 6 7)) ; => (3 2 1 4 5 6 7)
(adjoin 4 '(1 2 3 4)) ; => (1 2 3 4)
2013-08-11 12:49:33 +04:00
;;; However, you'll need a better data structure than linked lists when working
;;; with larger data sets
2013-08-11 21:39:13 +04:00
2013-08-11 12:49:33 +04:00
;;; Dictionaries are implemented as hash tables.
;;; Create a hash table
2013-08-11 21:39:13 +04:00
(defparameter *m* (make-hash-table))
2013-08-11 12:49:33 +04:00
;;; Set value
2013-08-11 21:39:13 +04:00
(setf (gethash 'a *m*) 1)
2013-08-11 12:49:33 +04:00
;;; Retrieve value
(gethash 'a *m*) ; => 1, T
;;; CL expressions have the ability to return multiple values.
(values 1 2) ; => 1, 2
;;; which can be bound with MULTIPLE-VALUE-BIND
(multiple-value-bind (x y)
(values 1 2)
(list y x))
; => '(2 1)
2013-08-11 12:49:33 +04:00
;;; GETHASH is an example of a function that returns multiple values. The first
;;; value it return is the value of the key in the hash table; if the key is
;;; not found it returns NIL.
2013-08-11 21:39:13 +04:00
;;; The second value determines if that key is indeed present in the hash
;;; table. If a key is not found in the table it returns NIL. This behavior
;;; allows us to check if the value of a key is actually NIL.
;;; Retrieving a non-present value returns nil
(gethash 'd *m*) ;=> NIL, NIL
;;; You can provide a default value for missing keys
2013-08-11 12:49:33 +04:00
2013-08-20 18:57:25 +04:00
(gethash 'd *m* :not-found) ; => :NOT-FOUND
2013-08-11 21:39:13 +04:00
;;; Let's handle the multiple return values here in code.
2013-08-11 21:39:13 +04:00
(multiple-value-bind (a b)
2013-08-11 21:39:13 +04:00
(gethash 'd *m*)
(list a b))
; => (NIL NIL)
(multiple-value-bind (a b)
2013-08-11 21:39:13 +04:00
(gethash 'a *m*)
(list a b))
; => (1 T)
2013-08-11 12:49:33 +04:00
;;;-----------------------------------------------------------------------------
;;; 3. Functions
;;;-----------------------------------------------------------------------------
;;; Use LAMBDA to create anonymous functions. Functions always returns the
;;; value of the last expression. The exact printable representation of a
;;; function varies between implementations.
2013-08-11 21:39:13 +04:00
(lambda () "Hello World") ; => #<FUNCTION (LAMBDA ()) {1004E7818B}>
2013-08-11 12:49:33 +04:00
;;; Use FUNCALL to call anonymous functions
(funcall (lambda () "Hello World")) ; => "Hello World"
(funcall #'+ 1 2 3) ; => 6
2013-08-11 12:49:33 +04:00
;;; A call to FUNCALL is also implied when the lambda expression is the CAR of
;;; an unquoted list
((lambda () "Hello World")) ; => "Hello World"
((lambda (val) val) "Hello World") ; => "Hello World"
;;; FUNCALL is used when the arguments are known beforehand. Otherwise, use APPLY
(apply #'+ '(1 2 3)) ; => 6
2013-08-11 21:39:13 +04:00
(apply (lambda () "Hello World") nil) ; => "Hello World"
;;; To name a function, use DEFUN
(defun hello-world () "Hello World")
2013-08-11 12:49:33 +04:00
(hello-world) ; => "Hello World"
;;; The () in the definition above is the list of arguments
2013-08-11 21:39:13 +04:00
(defun hello (name) (format nil "Hello, ~A" name))
2013-08-11 12:49:33 +04:00
(hello "Steve") ; => "Hello, Steve"
;;; Functions can have optional arguments; they default to NIL
2013-08-11 12:49:33 +04:00
(defun hello (name &optional from)
(if from
(format t "Hello, ~A, from ~A" name from)
(format t "Hello, ~A" name)))
2013-08-11 12:49:33 +04:00
(hello "Jim" "Alpacas") ; => Hello, Jim, from Alpacas
2013-08-11 12:49:33 +04:00
;;; The default values can also be specified
2013-08-11 21:39:13 +04:00
(defun hello (name &optional (from "The world"))
(format nil "Hello, ~A, from ~A" name from))
2013-08-11 21:39:13 +04:00
(hello "Steve") ; => Hello, Steve, from The world
(hello "Steve" "the alpacas") ; => Hello, Steve, from the alpacas
2013-08-11 12:49:33 +04:00
;;; Functions also have keyword arguments to allow non-positional arguments
2013-08-11 12:49:33 +04:00
(defun generalized-greeter (name &key (from "the world") (honorific "Mx"))
(format t "Hello, ~A ~A, from ~A" honorific name from))
2013-08-11 12:49:33 +04:00
(generalized-greeter "Jim")
; => Hello, Mx Jim, from the world
2013-08-11 12:49:33 +04:00
(generalized-greeter "Jim" :from "the alpacas you met last summer" :honorific "Mr")
; => Hello, Mr Jim, from the alpacas you met last summer
;;;-----------------------------------------------------------------------------
;;; 4. Equality
;;;-----------------------------------------------------------------------------
;;; CL has a sophisticated equality system. Some are covered here.
2013-08-11 12:49:33 +04:00
;;; For numbers, use `='
(= 3 3.0) ; => T
(= 2 1) ; => NIL
2013-08-11 12:49:33 +04:00
;;; For object identity (approximately) use EQL
(eql 3 3) ; => T
(eql 3 3.0) ; => NIL
(eql (list 3) (list 3)) ; => NIL
2013-08-11 12:49:33 +04:00
;;; for lists, strings, and bit-vectors use EQUAL
(equal (list 'a 'b) (list 'a 'b)) ; => T
(equal (list 'a 'b) (list 'b 'a)) ; => NIL
2013-08-11 12:49:33 +04:00
;;;-----------------------------------------------------------------------------
;;; 5. Control Flow
;;;-----------------------------------------------------------------------------
2013-08-11 12:49:33 +04:00
;;; Conditionals
(if t ; test expression
"this is true" ; then expression
"this is false") ; else expression
; => "this is true"
;;; In conditionals, all non-NIL values are treated as true
2013-08-11 12:49:33 +04:00
(member 'Groucho '(Harpo Groucho Zeppo)) ; => '(GROUCHO ZEPPO)
(if (member 'Groucho '(Harpo Groucho Zeppo))
'yep
'nope)
; => 'YEP
;;; COND chains a series of tests to select a result
2013-08-11 12:49:33 +04:00
(cond ((> 2 2) (error "wrong!"))
((< 2 2) (error "wrong again!"))
(t 'ok)) ; => 'OK
;;; TYPECASE switches on the type of the value
2013-08-11 12:49:33 +04:00
(typecase 1
2013-08-11 21:39:13 +04:00
(string :string)
(integer :int))
2013-08-11 12:49:33 +04:00
; => :int
;;; Looping
2013-08-11 12:49:33 +04:00
;;; Recursion
2013-08-11 12:49:33 +04:00
(defun fact (n)
(if (< n 2)
1
(* n (fact(- n 1)))))
2013-08-11 12:49:33 +04:00
(fact 5) ; => 120
2013-08-11 12:49:33 +04:00
;;; Iteration
2013-08-11 12:49:33 +04:00
(defun fact (n)
(loop :for result = 1 :then (* result i)
:for i :from 2 :to n
:finally (return result)))
2013-08-11 12:49:33 +04:00
(fact 5) ; => 120
2013-08-11 12:49:33 +04:00
2018-09-25 00:42:56 +03:00
(loop :for x :across "abcd" :collect x)
; => (#\a #\b #\c #\d)
2013-08-11 12:49:33 +04:00
(dolist (i '(1 2 3 4))
(format t "~A" i))
; => 1234
2013-08-11 12:49:33 +04:00
;;;-----------------------------------------------------------------------------
;;; 6. Mutation
;;;-----------------------------------------------------------------------------
2013-08-11 12:49:33 +04:00
;;; Use SETF to assign a new value to an existing variable. This was
;;; demonstrated earlier in the hash table example.
2013-08-11 12:49:33 +04:00
(let ((variable 10))
2013-08-11 21:39:13 +04:00
(setf variable 2))
; => 2
2013-08-11 12:49:33 +04:00
;;; Good Lisp style is to minimize the use of destructive functions and to avoid
;;; mutation when reasonable.
2013-08-11 12:49:33 +04:00
;;;-----------------------------------------------------------------------------
;;; 7. Classes and objects
;;;-----------------------------------------------------------------------------
2013-08-11 12:49:33 +04:00
;;; No more animal classes. Let's have Human-Powered Mechanical
;;; Conveyances.
2013-08-11 12:49:33 +04:00
(defclass human-powered-conveyance ()
2013-08-11 21:39:13 +04:00
((velocity
:accessor velocity
:initarg :velocity)
(average-efficiency
2013-08-20 18:57:25 +04:00
:accessor average-efficiency
:initarg :average-efficiency))
2013-08-11 21:39:13 +04:00
(:documentation "A human powered conveyance"))
;;; The arguments to DEFCLASS, in order are:
;;; 1. class name
;;; 2. superclass list
;;; 3. slot list
;;; 4. optional specifiers
2013-08-11 21:39:13 +04:00
;;; When no superclass list is set, the empty list defaults to the
;;; standard-object class. This *can* be changed, but not until you
;;; know what you're doing. Look up the Art of the Metaobject Protocol
;;; for more information.
2013-08-11 12:49:33 +04:00
(defclass bicycle (human-powered-conveyance)
2013-08-11 21:39:13 +04:00
((wheel-size
:accessor wheel-size
:initarg :wheel-size
:documentation "Diameter of the wheel.")
(height
:accessor height
:initarg :height)))
2013-08-11 12:49:33 +04:00
(defclass recumbent (bicycle)
2013-08-11 21:39:13 +04:00
((chain-type
:accessor chain-type
:initarg :chain-type)))
2013-08-11 12:49:33 +04:00
(defclass unicycle (human-powered-conveyance) nil)
(defclass canoe (human-powered-conveyance)
2013-08-11 21:39:13 +04:00
((number-of-rowers
:accessor number-of-rowers
:initarg :number-of-rowers)))
;;; Calling DESCRIBE on the HUMAN-POWERED-CONVEYANCE class in the REPL gives:
2013-08-11 12:49:33 +04:00
(describe 'human-powered-conveyance)
; COMMON-LISP-USER::HUMAN-POWERED-CONVEYANCE
; [symbol]
;
; HUMAN-POWERED-CONVEYANCE names the standard-class #<STANDARD-CLASS
; HUMAN-POWERED-CONVEYANCE>:
; Documentation:
; A human powered conveyance
; Direct superclasses: STANDARD-OBJECT
; Direct subclasses: UNICYCLE, BICYCLE, CANOE
; Not yet finalized.
2013-08-20 18:57:25 +04:00
; Direct slots:
2013-08-11 12:49:33 +04:00
; VELOCITY
; Readers: VELOCITY
; Writers: (SETF VELOCITY)
; AVERAGE-EFFICIENCY
; Readers: AVERAGE-EFFICIENCY
; Writers: (SETF AVERAGE-EFFICIENCY)
;;; Note the reflective behavior available. CL was designed to be an
;;; interactive system
2013-08-11 12:49:33 +04:00
;;; To define a method, let's find out what our circumference of the
;;; bike wheel turns out to be using the equation: C = d * pi
2013-08-11 12:49:33 +04:00
(defmethod circumference ((object bicycle))
2013-08-11 21:39:13 +04:00
(* pi (wheel-size object)))
;;; PI is defined as a built-in in CL
2013-08-11 12:49:33 +04:00
;;; Let's suppose we find out that the efficiency value of the number
;;; of rowers in a canoe is roughly logarithmic. This should probably be set
;;; in the constructor/initializer.
2013-08-11 12:49:33 +04:00
;;; To initialize your instance after CL gets done constructing it:
2013-08-11 12:49:33 +04:00
(defmethod initialize-instance :after ((object canoe) &rest args)
(setf (average-efficiency object) (log (1+ (number-of-rowers object)))))
;;; Then to construct an instance and check the average efficiency...
2013-08-11 12:49:33 +04:00
(average-efficiency (make-instance 'canoe :number-of-rowers 15))
; => 2.7725887
;;;-----------------------------------------------------------------------------
;;; 8. Macros
;;;-----------------------------------------------------------------------------
2013-08-11 12:49:33 +04:00
;;; Macros let you extend the syntax of the language. CL doesn't come
;;; with a WHILE loop, however, it's trivial to write one. If we obey our
;;; assembler instincts, we wind up with:
2013-08-11 12:49:33 +04:00
(defmacro while (condition &body body)
"While `condition` is true, `body` is executed.
`condition` is tested prior to each execution of `body`"
(let ((block-name (gensym)) (done (gensym)))
2013-08-11 12:49:33 +04:00
`(tagbody
,block-name
2013-08-11 21:39:13 +04:00
(unless ,condition
(go ,done))
2013-08-11 12:49:33 +04:00
(progn
,@body)
(go ,block-name)
,done)))
2013-08-11 12:49:33 +04:00
;;; Let's look at the high-level version of this:
2013-08-11 12:49:33 +04:00
(defmacro while (condition &body body)
"While `condition` is true, `body` is executed.
`condition` is tested prior to each execution of `body`"
`(loop while ,condition
do
2013-08-11 21:39:13 +04:00
(progn
,@body)))
2013-08-11 12:49:33 +04:00
;;; However, with a modern compiler, this is not required; the LOOP form
;;; compiles equally well and is easier to read.
2013-08-11 12:49:33 +04:00
;;; Note that ``` is used, as well as `,` and `@`. ``` is a quote-type operator
;;; known as quasiquote; it allows the use of `,` . `,` allows "unquoting"
;;; variables. @ interpolates lists.
2013-08-11 12:49:33 +04:00
;;; GENSYM creates a unique symbol guaranteed to not exist elsewhere in
;;; the system. This is because macros are expanded at compile time and
;;; variables declared in the macro can collide with variables used in
;;; regular code.
2013-08-11 12:49:33 +04:00
;;; See Practical Common Lisp and On Lisp for more information on macros.
2013-08-13 19:19:56 +04:00
```
2013-08-11 12:49:33 +04:00
## Further reading
- [Practical Common Lisp](http://www.gigamonkeys.com/book/)
- [Common Lisp: A Gentle Introduction to Symbolic Computation](https://www.cs.cmu.edu/~dst/LispBook/book.pdf)
2013-08-11 12:49:33 +04:00
## Extra information
2013-08-11 12:49:33 +04:00
- [CLiki](http://www.cliki.net/)
- [common-lisp.net](https://common-lisp.net/)
- [Awesome Common Lisp](https://github.com/CodyReichert/awesome-cl)
- [Lisp Lang](http://lisp-lang.org/)
## Credits
2013-08-11 12:49:33 +04:00
Lots of thanks to the Scheme people for rolling up a great starting
point which could be easily moved to Common Lisp.
2013-08-11 21:39:13 +04:00
2013-09-03 04:05:43 +04:00
- [Paul Khuong](https://github.com/pkhuong) for some great reviewing.