Permalink
Browse files

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

  • Loading branch information...
1 parent 4359bc9 commit 7e88ef64f3e2d31ef6fe3ea6fe5e3dd3f40ef938 @bobbysmith007 bobbysmith007 committed Mar 1, 2013
Showing with 6 additions and 2 deletions.
  1. +6 −2 access.lisp
View
@@ -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))

0 comments on commit 7e88ef6

Please sign in to comment.