dnaeon

;;
;; Making a deeply nested map by following parent-child relations between items
;;

(defn make-items [n]
  (concat [{:id 0 :name "item-root"}]
        (for [x (range 1 n)] {:id x :parent (dec x) :item (format "item-%d" x)})))

(defn item-children [item coll]
  (if-let [children (-> (filter #(= (:parent %) (:id item)) coll) seq)]

dnaeon

;;
;; When using clojure.walk/keywordize-keys record reader tags are stipped off
;;
user> (require '[clojure.walk :as walk])
nil
user> (defrecord Foo [x])
user.Foo
user> (def m {:foo (->Foo 1) :bar 2 :qux 3})
#'user/m
user> m

dnaeon

;;;; Path: ~/quicklisp/local-projects/foo/src/bar.lisp

(defpackage foo.bar
  (:nicknames :foo.bar)
  (:use :cl)
  (:export :my-function))
(in-package :foo.bar)

;; :arrows is not imported, but I can still access it
;;

dnaeon

ECL (Embeddable Common-Lisp) 20.4.24 (git:UNKNOWN)
Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
Copyright (C) 1993 Giuseppe Attardi
Copyright (C) 2013 Juan J. Garcia-Ripoll
Copyright (C) 2018 Daniel Kochmanski
Copyright (C) 2020 Daniel Kochmanski and Marius Gerbershagen
ECL is free software, and you are welcome to redistribute it
under certain conditions; see file 'Copyright' for details.
Type :h for Help.  
Top level in: #<process TOP-LEVEL 0x637341af80>.

dnaeon

diff --git a/swank/sbcl.lisp b/swank/sbcl.lisp
index a09e04b3..78038659 100644
--- a/swank/sbcl.lisp
+++ b/swank/sbcl.lisp
@@ -979,7 +979,8 @@ QUALITIES is an alist with (quality . value)"
        (make-location `(:file ,(namestring
                                 (translate-logical-pathname pathname)))
                       '(:position 1)
-                      (when (eql type :function)
+                      (when (and (eql type :function)

dnaeon

;; Decode ASN.1 encoded private key
;;
;; RSA private key format: https://www.rfc-editor.org/rfc/rfc3447#appendix-A.1.2
;;
;; RSAPrivateKey ::= SEQUENCE {
;;     version           Version,
;;     modulus           INTEGER,  -- n
;;     publicExponent    INTEGER,  -- e
;;     privateExponent   INTEGER,  -- d
;;     prime1            INTEGER,  -- p

dnaeon

;; ningle application with custom middlewares
;;
;; The middleware here is used to push additional context to the
;; environment which can later be used by ningle routes.
;;
;; Currently this is not possible in ningle, as ningle routes accept a
;; single argument, which represent the HTTP request parameters, and
;; this is different than the Lack/Clack routes, which accept the
;; surrounding environment instead.
;;

dnaeon

# Maintainer: not_anonymous <[email protected]>
# Contributor: Marin Atanasov Nikolov <[email protected]>
# Contributor: Andrey Semisokhin <[email protected]>
# Original Submission: Bob Finch <[email protected]>

_pkgname=gpredict
pkgname="${_pkgname}-git"
pkgver=2.3.r115.0f3beb6
pkgrel=1
pkgdesc='Gpredict satellite tracking application'

dnaeon

# Maintainer: Alexandre Rouma <[email protected]>
# Maintainer: éclairevoyant

# Contributor: Marin Atanasov Nikolov <[email protected]>

_pkgname=sdrpp
pkgname="${_pkgname}-git"
pkgver=1.0.4.r479.3a06612
pkgrel=1
epoch=

dnaeon

diff --git a/.SRCINFO b/.SRCINFO
index 281841c..a66ff62 100644
--- a/.SRCINFO
+++ b/.SRCINFO
@@ -1,29 +1,33 @@
 pkgbase = sdrpp-git
-	pkgdesc = The Bloat-free SDR Receiver
-	pkgver = 1.0.4.r462.3336ae4
+	pkgdesc = Cross-Platform SDR Software
+	pkgver = 1.0.4.r479.3a06612