mirror of
https://gitlab.com/eql/EQL5.git
synced 2026-02-14 11:41:35 -08:00
16 lines
492 B
Common Lisp
16 lines
492 B
Common Lisp
;;; Prints currently mounted storage info.
|
|
;;;
|
|
;;; N.B: If you load this file in Slime, you need to use QLOAD instead of LOAD!
|
|
|
|
#-qt-wrapper-functions ; see README-OPTIONAL.txt
|
|
(load (in-home "src/lisp/all-wrappers"))
|
|
|
|
(in-package :eql-user)
|
|
|
|
(defun print-mounted-volumes ()
|
|
(let ((*byte-array-as-string* t)) ; print byte arrays human readably
|
|
(dolist (info (|mountedVolumes.QStorageInfo|))
|
|
(format t "~%~A ----------~%" info)
|
|
(qproperties info))))
|
|
|
|
(print-mounted-volumes)
|