death

;;;; +----------------------------------------------------------------+
;;;; | Advent of Code 2021                                            |
;;;; +----------------------------------------------------------------+

(defpackage #:snippets/aoc2021/day3
  (:use #:cl)
  (:export
   #:day3))

(in-package #:snippets/aoc2021/day3)

death

;;;; +----------------------------------------------------------------+
;;;; | Advent of Code 2021                                            |
;;;; +----------------------------------------------------------------+

(defpackage #:snippets/aoc2021/day2
  (:use #:cl)
  (:export
   #:day2))

(in-package #:snippets/aoc2021/day2)

death

;;;; +----------------------------------------------------------------+
;;;; | Advent of Code 2021                                            |
;;;; +----------------------------------------------------------------+

(defpackage #:snippets/aoc2021/day1
  (:use #:cl)
  (:export
   #:day1))

(in-package #:snippets/aoc2021/day1)

death

;; A GUI for fetching all third party git Lisp repos.
;;
;; Kinda silly and limited, but what the hell.

(defpackage #:snippets/clim-repos
  (:use #:clim-lisp #:clim)
  (:shadow
   #:merge)
  (:import-from
   #:uiop)

death

;; [15:04] <_death> sure, it's not too difficult.. you could also pick an existing syntax
;; I answered binrapt after he talked about template engines.
;; I don't think I ever wrote a template engine, so why did I say that?
;; Anyway, let's write a template engine.

(defpackage #:snippets/template-engine
  (:use #:cl)
  (:import-from #:alexandria
                #:emptyp)
  (:import-from #:sb-ext

death

(defpackage #:snippets/obfuscate
  (:use #:cl)
  (:import-from #:cl-permutation)
  (:export
   #:*seed*
   #:ob
   #:unob))

(in-package #:snippets/obfuscate)

death

(defpackage #:snippets/history-class
  (:use #:cl #:closer-mop)
  (:shadowing-import-from
   #:closer-mop
   #:standard-generic-function
   #:defgeneric
   #:defmethod)
  (:import-from
   #:fset)
  (:export

death

(defmacro define-equality-test (name (&rest options) &body cases)
  (declare (ignore options))
  `(defun ,name (object1 object2)
     (cond ,@(mapcar #'make-cond-clause cases))))

(defun make-cond-clause (case)
  (destructuring-bind (type comparison) case
    `((and (typep object1 ',type)
           (typep object2 ',type))
      ,(make-comparison-body comparison 'object1 'object2 'identity))))

death

CL-USER> (test-defcstruct-array)
[third-party/cells-gtk3/gtk-ffi/gtk-core.lisp:53]
  (CFFI:DEFCSTRUCT G-VALUE
    (G-TYPE GTYPE)
    (G-DATA (:ARRAY G-VALUE-DATA 2)))

[third-party/cffi/tests/fsbv.lisp:88]
  (DEFCSTRUCT (STRUCT-WITH-ARRAY :SIZE 6) (S1 (:ARRAY :CHAR 6)))

death

;;;; +----------------------------------------------------------------+
;;;; | Advent of Code 2020                                            |
;;;; +----------------------------------------------------------------+

(defpackage #:snippets/aoc2020/day25
  (:use #:cl)
  (:import-from
   #:ironclad
   #:expt-mod)
  (:export