| ;;;; Operations and definitions for Cantor and Dedekind's set theory. | |
| (defpackage bachelor-cs.set-theory | |
| (:use :cl) | |
| (:export :Ø :∈ :⊆ :power :size :∪ :∩ :diff :Δ :× )) | |
| (in-package :bachelor-cs.set-theory) | |
| (defvar Ø () | |
| "Empty set Ø") |
I was just sitting in a doctor surgery 45 minutes ago with an orthopaedic spine surgeon, who is one of the few who has worked out how to use software to his advantage. We were measuring a deformity that the previous surgeon has created. After 20 minutes of drawing lines and measurements all over this DICOM image, the following happened
Access Violation at address 0xGOFUCKYOURSELF
…so now I have to go back in two weeks while he can restart a plan for a difficult corrective surgery.
| (ql:quickload '(chipz archive)) | |
| (defun extract-tarball (pathname) | |
| "Extract a tarball (.tar.gz) file to a directory (*default-pathname-defaults*)." | |
| (with-open-file (tarball-stream pathname | |
| :direction :input | |
| :element-type '(unsigned-byte 8)) | |
| (archive::extract-files-from-archive | |
| (archive:open-archive 'archive:tar-archive | |
| (chipz:make-decompressing-stream 'chipz:gzip tarball-stream) |
