anchor.diff:  (defun cmd-package-install (a-package)
     (cond ((string= (software-type) *freebsd-type*)
            (format t "FreeBSD pkg installing ~s~%" a-package)
  -         (uiop:run-program `("/usr/sbin/pkg" "install" "-yqU" ,a-package)))
  +         (uiop:run-program `("/usr/sbin/pkg" "install" "-yqU" ,a-package) :output *standard-output* :error *standard-output*))
           (t (error "Platform ~s (~s) on ~s is not supported~%" (software-type) (software-version) (machine-type)))))
   
   (defun cmd-package (a-command a-package)
  
positive.code: (defun pkg-info (a-package)
    (uiop:run-program (list "/usr/sbin/pkg" "info" a-package)))
  
  ;-- MAIN
  
  (format t "Hello World!~%")
  (freebsd-update)
  
  ; erlang is a super dependency of couchdb and rabbitmq
  ; openjdk8 pulls libXt and depends on a whole list of X-related packages
  (dolist (p '("sudo" "curl" "git" "bzip2" "zip" "unzip" "bash" "gnutls" "openssl" "ImageMagick-nox11"
               "autoconf" "libtool" "automake" ;; for libfixposix
               "erlang" "couchdb" "rabbitmq" "openjdk8" "memcached" "rabbitmq-c-devel" "leiningen"))
    (cmd-package "install" p))
  
  (with-open-file (stream "/etc/fstab" :direction :io :if-exists :OVERWRITE)
    (let ((found-fs (loop for line = (read-line stream nil)
  
negative.code: ;; mount all new filesystems
  (uiop:run-program (list "/sbin/mount" "-a"))
  
  ;(portsnap "fetch")
  ;(handler-case
  ;    (portsnap "update")
    ;; update failed, maybe we should try "extract" for the initial portsnap
  ;  (uiop:subprocess-error () (portsnap "extract")))
  
  (handler-case
      (pkg-info "nginx-devel")
  