khirbat

pi@4a:~ $ ./vm-explore.sh nocloud_alpine-3.20.3-aarch64-uefi-cloudinit-r0.qcow2 -M alpine
Mounted /dev/nbd0p2 at /media/root/_
Spawning container alpine on /media/root/_.
Press ^] three times within 1s to kill container.
alpine:~#

khirbat

We couldn’t find that file to show.

khirbat

;;;; 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 +))

khirbat

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:

khirbat

;;;; 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")

khirbat

(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)))))

khirbat

(defmethod swank::menu-choices-for-presentation ((ob fixnum))
  `(("English" ,(lambda (choice object id) (format t "~r~%" object)))))