Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

made split-dot-sym publically available (because I need it elsewhere)

  • Loading branch information...
commit 7e88ef64f3e2d31ef6fe3ea6fe5e3dd3f40ef938 1 parent 4359bc9
@bobbysmith007 bobbysmith007 authored
Showing with 6 additions and 2 deletions.
  1. +6 −2 access.lisp
View
8 access.lisp
@@ -42,6 +42,7 @@
#:with-dot
#:enable-dot-syntax
#:disable-dot-syntax
+ #:split-dot-sym
;; arg-list-manip
#:arg-list-key-value
@@ -562,9 +563,12 @@
;;;; DOT Syntax stuff
+(defun split-dot-sym (sym)
+ (iter (for piece in (cl-ppcre:split "\\." (string sym)))
+ (collect (intern piece (or (symbol-package sym) *package*)))))
+
(defun translate-dot-sym (sym)
- (let* ((pieces (iter (for piece in (cl-ppcre:split "\\." (string sym)))
- (collect (intern piece (or (symbol-package sym) *package*)))))
+ (let* ((pieces (split-dot-sym sym))
(fns (iter (for sym in (rest pieces))
(collect `(quote ,sym)))))
(if (eql 1 (length pieces))
Please sign in to comment.
Something went wrong with that request. Please try again.