ppymdjr

(defun get-lisp-conn-params (lisp-process)
  (let ((process-contact (if (stringp (second (process-contact lisp-process)))
                             (car (read-from-string (second (process-contact lisp-process))))
                           (second (process-contact lisp-process)))))
    (cond ((eq process-contact 4007)
           `((nice-name . "dev-lisp")
             (mode-line . "#202080")
             (mode-line-inactive . "#A0A0C0")
             ))
          ((eq process-contact 4005)

ppymdjr

;; Any secret information should go into this file, which will be encrypted before commit

(in-package :vip)

(defparameter *carrot-password* "...")
(defparameter *vipres-password* "...")
(defparameter *autoline-password* "...")
(defparameter *learner-driver-password* "...")

ppymdjr

OpenBSD 6.7 (GENERIC) #179: Thu May  7 11:02:37 MDT 2020
    deraadt@amd64.openbsd.org:/usr/src/sys/arch/amd64/compile/GENERIC
real mem = 21452460032 (20458MB)
avail mem = 20789772288 (19826MB)
mpath0 at root
scsibus0 at mpath0: 256 targets
mainbus0 at root
bios0 at mainbus0: SMBIOS rev. 2.4 @ 0xe00f0 (71 entries)
bios0: vendor Apple Computer, Inc. version "MP11.88Z.005C.B08.0707021221" date 07/02/07
bios0: Apple Computer, Inc. MacPro1,1

ppymdjr

# -*- mode: org; -*-

#+HTML_HEAD: <link rel="stylesheet" type="text/css" href="https://fniessen.github.io/org-html-themes/styles/readtheorg/css/htmlize.css"/>
#+HTML_HEAD: <link rel="stylesheet" type="text/css" href="https://fniessen.github.io/org-html-themes/styles/readtheorg/css/readtheorg.css"/>

#+HTML_HEAD: <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.3/jquery.min.js"></script>
#+HTML_HEAD: <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.4/js/bootstrap.min.js"></script>
#+HTML_HEAD: <script type="text/javascript" src="https://fniessen.github.io/org-html-themes/styles/lib/js/jquery.stickytableheaders.min.js"></script>
#+HTML_HEAD: <script type="text/javascript" src="https://fniessen.github.io/org-html-themes/styles/readtheorg/js/readtheorg.js"></script>

ppymdjr

;; try and crash CCL64 consistently...

(defparameter size 200000)

(defparameter base (make-array size :initial-element t :adjustable t))

(defun f ()
  (dotimes (i 10)
    (let ((a (make-array size :adjustable t :initial-element nil)))
      (replace a base)

ppymdjr

;; try and crash CCL64 consistently...

(defparameter size 200000)

(defparameter base (make-array size :initial-element t :adjustable t))

(defun f ()
  (dotimes (i 10)
    (let ((a (make-array size :adjustable t :initial-element nil)))
      (replace a base)

ppymdjr

Keybase proof

I hereby claim:

• I am ppymdjr on github.
• I am ppymdjr (https://keybase.io/ppymdjr) on keybase.
• I have a public key ASD8eDZPQj4hNxQr9CtpBFh3VMRetcMjRvsQgiM8Putc1Qo

To claim this, I am signing this object: