View mixin.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; MIXIN | |
;;;; https://en.wikipedia.org/wiki/Mixin#In_Common_Lisp | |
(defgeneric object-width (object) | |
(:documentation | |
"Generic function with one argument using the + method | |
combination. The + method combination determines that all | |
applicable methods for a generic function will be called and the | |
results will be added.") | |
(:method-combination +)) |
View keybase.md
Keybase proof
I hereby claim:
- I am khirbat on github.
- I am khirbat (https://keybase.io/khirbat) on keybase.
- I have a public key whose fingerprint is E871 BB48 812F A3F1 DE14 D5A3 A1BD 56CF 27B8 E05F
To claim this, I am signing this object:
View hw7.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; hw7.lisp | |
;;; USAGE: | |
;;; | |
;;; Use the functions listed under the heading CONSTRUCTORS to create | |
;;; expressions. The CONSTRUCTORS, EVAL-PROG and PREPROCESS-PROG are | |
;;; the public interface. All other functions should be considered | |
;;; private. Symbols (not strings) are used to represent variables. | |
;;; | |
;;; CL-USER> (load "hw7.lisp") |
View dep.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defun rdep (system) | |
"Return list of Quicklisp packages that use SYSTEM" | |
(let (rdeps) | |
(dolist (s (ql-dist:provided-systems (ql-dist:find-dist "quicklisp")) rdeps) | |
(if (member system (ql-dist:required-systems s) :test #'equal) | |
(push (ql-dist:name s) rdeps))))) |
View gist:3134402
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defmethod swank::menu-choices-for-presentation ((ob fixnum)) | |
`(("English" ,(lambda (choice object id) (format t "~r~%" object))))) |