Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (17 sloc) 1.44 KB
;;; Compiled by toups@deluge on Tue Aug 30 14:21:43 2011
;;; from file /home/toups/elisp/utils/monad-tut-examples.el
;;; in Emacs version 23.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require monads functional utils] 2)
#@39 A list of all the people that matter.
(defvar *people* '(:ted :lea :leo :james :harvey :sally :jane :andrew :catherine) (#$ . 604))
#@37 Our database of friend connections.
(defvar *friends-db* '((:ted (:lea :leo :sally :andrew :catherine :leo :jane)) (:lea (:ted :leo :jane :andrew :harvey :sally :catherine)) (:leo (:ted :lea :ted :harvey :sally :jane :andrew :catherine :harvey :andrew :catherine)) (:james (:jane :harvey :jane)) (:harvey (:leo :lea :leo :james :harvey :harvey :sally)) (:sally (:ted :leo :lea :harvey :jane :andrew)) (:jane (:lea :leo :james :sally :ted :james :andrew :catherine)) (:andrew (:ted :lea :leo :sally :jane :leo)) (:catherine (:ted :leo :lea :leo :jane :catherine :catherin))) (#$ . 742))
#@48 Return a list of all the people in friends-db.
(defalias 'friends-of #[(person) "\302 \"\207" [*friends-db* person alist] 3 (#$ . 1334)])
Something went wrong with that request. Please try again.