Paste number 327154: jd

Paste number 327154: jd
Pasted by: jd
When:5 years, 11 months ago
Share:Tweet this! | http://paste.lisp.org/+70FM
Channel:None
Paste contents:
Raw Source | XML | Display As
(let ((sys (ql-dist:dependency-tree "cl-vectors")))
  (maptree
   (lambda (s)
     (when (member
            (asdf:find-system
             (ql-dist:system-file-name s))
            '("gpl" "gpl2" "gpl3" "gplv2" ...)
            :test #'equalp
            :key #'asdf:system-license)
       (error "user freedom is put above creator's freedom")))
   sys))

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.