Skip to content

Instantly share code, notes, and snippets.

@sionescu

sionescu/case.lisp

Created January 10, 2022 07:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sionescu/eed0567ac00b994de84b0bddd709c4f1 to your computer and use it in GitHub Desktop.
Save sionescu/eed0567ac00b994de84b0bddd709c4f1 to your computer and use it in GitHub Desktop.
Download ZIP
Shadow CL:CASE
Raw
case.lisp
(defpackage :foo
(:use :cl)
(:shadow :case)
(:export :case))
(in-package :foo)
(defclass case ()
((cases :initarg :cases :initform nil)))
(make-instance 'foo:case)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment